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Editorial i 



Liebe Leser, 


ziemlich genau ein Jahr ist es nun her, daß der englische Computerhersteller 
Amstrad eine deutsche Niederlassung in Neu-Isenburg aufgebaut hat. Da in 
der Computerszene ein Jahr doch eine recht lange und vor allem 
ereignisreiche Zeitspanne ist, sollte mm auch der Zeitpunkt fiir ein erstes 
Resümee gekommen sein. 

Auf die Fragen unserer Redakteure stand Amstrad-Ge schüftsführer Helmut 
Jost Rede und Antwort, das ausführliche Interview lesen Sie bitte auf Seite 16. 

In den vergangenen Wochen konnten wir wieder viele Neueinsteiger als Leser 
begrüßen. Für diese und bestimmt auch für “alte Hasen “ der Amstrad-Szene 
nicht uninteressant, haben wir den Werdegang des englischen Herstellers in 
einer Chronik zusammengefaßt. Selbst erfahrene Anwender werden sich noch 
der Anfangszeiten eines CPC464 erinnern und bei der Lektüre dieses Artikels 
ihre Gedanken noch einmal um ein paar Quartale zurückschweifen lassen. 

Der schon fast nostalgisch anmutende Artikel über die Amstrad- 
Produktent Wicklung soll jedoch nicht über die Tatsache hinwegtäuschen, daß 
der Computermarkt zum heutigen Zeitpunkt nach anderen Produkten verlangt 
— und diese sind bekanntlich im domänen MS-DOS-Bereich zu finden. 

Genug der Vergangenheit, bei der Lektüre dieser Ausgabe werden Sie für die 
Zukunft gewappnet - arbeitsreiche Stunden an Ihrem Amstrad-Computer 
stehen bevor. 


In diesem Sinne Ihr 


Stefan Ritter 
Chefredakteur 
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I—Aktuell 


CompuCamp auch dieses Jahr 


Auch dieses Jahr können Ju¬ 
gendliche wieder Urlaub in den 
Computercamps machen. Je 
nach Standort und individueller 
Kurswahl liegen die Preise für 
den Aufenthalt für eine Woche 
ab DM 675,-. Verpflegung, 
Kosten für einen Kurs, Unter¬ 
bringung und Freizeitbetreuung 


sind im Preis eingeschlossen. 
Interessenten können einen Gra¬ 
tisprospekt über die Ferien¬ 
camps anfordem. 

Info: CAMPS 
c/o CompuCamp GmbH 
Wedeier Landstr.93 
D-2000 Hamburg 56 
Tel.: 040/811081 


Bücherecke 



Eine neue Drivebox gibt es ab 
sofort von CTT. Die abschließ¬ 
bare Drivebox erleichtert den 
Datenaustausch wie auch die 
Archivierung und Sicherung 
wichtiger Daten. Hierzu wer¬ 
den beliebige 3,5“-Slimline- 
Festplatten-Laufwerke mit 
Standard-Schnittstelle nicht fest 
in den PC, sondern in den 
Drivebox-Rahmen eingebaut, 
das Gegenstück der Drivebox 
wird dagegen im PC eingebaut. 


Durch die Drivebox kann das 
Laufwerk also jederzeit ent¬ 
nommen und an einem sicheren 
Platz deponiert oder anderwei¬ 
tig eingesetzt werden. 

Die Drivebox ist zu einem Preis 
von DM 250, - von CTT zu er¬ 
halten. 

Info: CTT Computertechnik 
und -technologie GmbH 
Truderingerstr. 240 
D-8000 München 82 
Tel.: 089/4209000 


Zwei interessante Bücher zum 
Thema PC-Programmicrung 
sowie ein Microcompulerlexi- 
kon sind vom SYBEX-Verlag 
jetzt wieder in neuen Auflagen 
erschienen. 

Das Lexikon umfaßt sämtliche 
in der Computersprache ge¬ 
brauchten Wörter, Abkürzun¬ 
gen und Umschreibung in al¬ 
phabetischer Reihenfolge. Au¬ 
ßerdem findet man eine eng¬ 
lisch-deutsche Übersetzung der 
bekanntesten Wörter. Das Lexi¬ 
kon kostet DM 14.80. 
'Programmierung des 8086/ 
8088’ beschäftigt sich, wie der 
Name schon sagt, mit den ge¬ 
bräuchlichsten, in PC/XT- 
Computem eingebauten Prozes¬ 
soren. Der Leser findet hier 
Grundlageninformationen so¬ 
wie Kapitel zum inneren Auf¬ 
bau der Prozessoren bis hin zur 
weitergehenden inasch inenna¬ 
hen Programmierung. Das 
Buch kostet DM 48, —. 

Der dritte Band beschäftigt sich 
direkt mit der Programmierung 
in Maschinensprache. ’IBM PC 
und Kompatible- Tools in Ma¬ 
schinensprache’ richtet sich di¬ 


rekt an diejenigen, die sich in¬ 
tensiver mit Ihrem PC beschäf¬ 
tigen wollen. Auch hier findet 
man zuerst die nötigen Grundin¬ 
formation, die über das DOS 
schließlich zu Assembler füh¬ 
ren. Dieses Buch ist für DM 
58,- zu haben. 

Hier noch einmal ein direkter 
Überblick über die drei vorge¬ 
stellten Bände: 

Helmut Kraus 
Mikrocomputerlexikon 
Mikrocomputer-Wissen von A-Z 
SYBEX-Verlag 
ISBN 3-88745-518-5 
Preis: DM 14,80 

J. W. Coffron 
Programmierung des 
8086/8088 
SYBEX-Verlag 
ISBN 3-88745-050-7 
Preis: DM 48, - 

Alan R. Miller 

IBM PC und Kompatible 

Tools in Maschinensprache 

SYBEX-Verlag 

ISBN 3-88745-671-8 

Preis DM 58, - 




PC-Tastatur im MF-Layout 


Eine neue Tastatur im MF-Lay¬ 
out wird von der Firma RAFI 
aus Ravensburg angeboten. 

Diese Tastatur für IBM PC/AT 
und Kompatible besteht aus 102 
Tasten, enthält einen getrennten 
Cursor- und Numerikblock zum 
erleichterten Arbeiten, vor al¬ 
lem bei der Eingabe von Zah- 
lenkolonncn. 

Besonderheiten sind das Layout 
nach DIN 2137 und die automa¬ 


tische XT/AT-Anpassung. Der 
Kabelaustritt kann wahlweise 
links, rechts oder in der Gehäu- 
semitte angeordnet sein. 

Die Tastatur ist für einen Preis 
von DM 199,- + MwSt. beim 
Fachhandel zu beziehen. 

Info: RAFI GmbH & Co. 
Elektrotechnische Spezial Fabrik 
Postfach 2060 
D-7980 Ravensburg 1 
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Neues von ACW-Soft 
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Nachdem die CP/M-Benutzer- 
oberfläche KICK von der Firma 
ACW-Soft so erfolgreich ange- 
kommen ist (Testbericht in PC- 
Amstrad 2/88), wurde jetzt 
auch eine Benutzeroberfläche 
unter dBase II realisiert. 

Die Eingabe ist hier komforta¬ 
bel gestaltet. Durch Drücken 
der Kennbuchstaben-Taste in¬ 
nerhalb eines Pulldown-Menüs 
werden Befehle sofort ausge¬ 
führt. Auch das 18seitige Hand¬ 
buch ist sehr verständlich und 
erläutert zum Beispiel die Er¬ 
stellung einer Startdiskette. 
TOPDAT, eine komfortable 
Adreßverwaltung, wurde jetzt 
auch in das Programm aufge¬ 
nommen. Aus 1000 Adressen 
kann TOPDAT in 5 Sekunden 


die richtige ausfindig machen. 

Der Übernahme von TOPDAT- 
Adresscn in dBase II wird durch 
zwei mitgelieferte Programme 
unterstützt. 

Listen-, Serien- und Etiketten¬ 
druck sind in dieses Programm 
integriert. Die problemlose Zu¬ 
sammenarbeit mit einer Fest¬ 
platte fällt dem Benutzer positiv 
auf. 

Die Anzahl der Adressen ist 
also praktisch nur durch die Ka¬ 
pazität des Speichermediums 
beschränkt. 

Info: ACW-SOFT 
Breite Straße 16 
D-5300 Bonn 1 
Tel.: 0228/636818 


PC-Utilities 


Von der Firma K + S computing 
in Bonn sind für PCs drei inter¬ 
essante Utilities zu erhalten. 
Das erste namens 'Cruise Con¬ 
trol beschleunigt die Cursor- 
Operationen wesentlich. 

Das Durchblättern von Bild¬ 
schirmseiten durch Texte und 
Tabellen wird wesentlich 
schneller. 'Cruise Control’ ko¬ 
stet inklusive 22seitiger engli¬ 
scher Dokumentation DM 
129,95. 

’Xenocopy PC’ ist ein Kopier¬ 
programm für PCs, welches es 
ermöglicht, Disketten von mehr 
als 300 anderen Computern zu 
lesen, zu beschreiben und zu 
formatieren. 

’Xenocopy' analysiert die frem¬ 
de Diskette und überträgt deren 
Inhalt in das MS-DOS-Format. 
Die Operation kann auch in an¬ 
derer Richtung erfolgen. Dieses 


Programm kostet inklusive eng¬ 
lischer Anleitung DM 249, —. 

'The Brooklyn Bridge’ kann 
zwei unterschiedliche Compu¬ 
tersysteme miteinander verbin¬ 
den, ob Laptop, XT,AT oder 
PS/2. Je zwei Computer tau¬ 
schen über die serielle Schnitt¬ 
stelle Daten aus, ein Verbin¬ 
dungskabel wird mitgeliefert. 
Unterschiedliche Floppy-For- 
mate spielen bei der Übertra¬ 
gung keine Rolle mehr, zusätz¬ 
lich können Peripheriegeräte 
wie Drucker von beiden Com¬ 
putern genutzt werden. 

Das Programm mit Kabel und 
Anleitung ist für DM 299,- zu 
erhalten. 

Info: K+S computing 
Wachsbleiche 32 
D-5300 Bonn 1 
Tel.: 0228/693096-7 


’Take Charge!’ in neuer Version 


Das Utility-Paket ’Take Char¬ 
ge!’ von Kienitz und Grabis 
liegt jetzt in einer neuen Version 
vor. Das ’Take Charge!’-Paket 
enthält Programme zur Organi¬ 
sation des Arbeitsplatzes und 
für die Organisation des PCs. 
Es läßt sich speicherresident la¬ 
den und benötigt 20 KByte des 
RAM-Speichers. 

'Take Charge!' enthält eine Fül¬ 
le an Funktionen: 

— ALARM/CLOCK: Bis zu 
15mal kann man sich an Ter¬ 
mine erinnern lassen, ein 
Memofeld mit 52 Zeichen 
steht für Eintragungen zur 
Verfügung. 

— Kalender 

— Taschenrechner: Hier stehen 
dem Benutzer zwei verschie¬ 
dene Rechner per Knopf¬ 
druck zur Verfügung, einmal 
eine Addiermaschine, des 
weiteren ein RPN-Rechner, 
der nach der umgekehrten 
polnischen Notation arbeitet. 
Er beinhaltet drei verschie¬ 
dene Modi: Business-Com- 
puter-Statistics. 

— Datenfernübertragung: Die¬ 
ses Programm verfügt über 
folgende Protokolle: XMO¬ 
DEM, CRC XMODEM, 
ASCII, KERMIT. 


— Disk Services: Sie haben fol¬ 
gende Funktionen: Disk Di¬ 
rectory, Directory Editor, 
Disk Map. Disk Optimizer, 
Directory Sort, Disk Text. 
Fileinfo, File Locator, For¬ 
mat Recovery, Hex Editor, 
Stop Watch, Tree Directory, 
Undelete, Volume Label, 
Zap Disk, Zap File. 

— Editor/ Notepad/ Clipboard 

— File Services: Attribute Mo¬ 
di fication. Copy, Dclete, 
Edit, Find. Move, Next, Ot- 
her, Tag, Untag, View, 
Wildcard, Graphical Tree 
Display. 

— Rolobase: Adreß- und Tele¬ 
fonnummernverzeichnis mit 
Features. 

— System Utilities: Alarm Sup¬ 
port, Clock Display, Key¬ 
board Lock, Screen Saver, 
System Reset, ASCII-Table, 
Command Stack, Printer Re- 
direction, Speed Key. 

'Take Charge!’ ist im Fachhan¬ 
del oder direkt bei Kienitz und 
Grabis für einen Preis von DM 
275,- erhältlich. 

Info: Kienitz + Grabis, 

Verlag + Versand 
Schulstr. 18 
D-8913 Schondorf 
Tel.: 08192/628 
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QuickTaste heißt ein Pro¬ 
gramm, welches Sonderzeichen 
und Rahmenzeichen innerhalb 
eines Texteditors erlaubt. Da¬ 
mit können einfache Grafiken in 
handelsüblichen Textprogram¬ 
men und -editoren eingebaut 
werden. Der Anwender erstellt 
die Grafiken im Text, ohne die¬ 
sen zu verlassen. Außerdem 
können jeder Taste nicht vor¬ 
handene Sondcrzeichcn zuge¬ 
ordnet werden. 


QuickTaste muß vor dem Start 
des eigentlichen Textprogram¬ 
mes gestartet werden und arbei¬ 
tet als residentes Hintergrund¬ 
programm. Dabei werden 60 
KByte vom Hauptspeicher be¬ 
legt. 

Der Preis des Programmes be¬ 
trägt DM 49,90. 

Info: QuickSoft 
U. Jacob 
Tellstr. 26 
CH-3014 Bern 
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An unsere Leser 

Die Rubrik »Leserbriefe« ist 
eine Einrichtung für alle Le¬ 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre¬ 
gungen zu Produkten, Pro¬ 
grammierproblemen oder zu 
unserer Zeitschrift haben. 
Selbstverständlich sind wir 
bemüht, alle Leserfragen zu 
beantworten. Doch haben 
Sie bitte Verständnis, daß wir 
nicht alle eingehenden Briefe 
persönlich beantworten kön¬ 
nen. Oft erreichen uns meh¬ 
rere Briefe zum gleichen 
Thema, einer davon wird 
dann stellvertretend für alle 
in unserer Zeitschrift beant- 

Ihre PC-Redaktion 


wortet. 


Neue Durchwahlnummern 
für die Hotline 

Für eilige Anfragen können Sie 
jetzt Ihren Redakteur direkt er¬ 
reichen. Jeden Mittwoch von 
17.00 - 20.00 Uhr stehen Ih¬ 
nen zur Verfügung: 

Claus Daschner (CPC) 

®(0 56 51)80 09 -16 

Jürgen Borngießer 
(CPC, PC) 

w(0 56 51)80 09 -17 

Ralf Schößler (PCW) 
o(0 56 51)80 09 -18 


PS: Die Redaktion behält sich vor, Leserzuschriften in gekürzter 
Form wiederzugeben 


Druckeranpassung an 
NEC P2200 

Ich suche dringend für mei¬ 
nen Drucker NEC P2200 An¬ 
passungen für die Program¬ 
me ARTWORX, CONTEXT 
und PICTURE PRINTER. 
Vor allem für eine Anpas¬ 
sung an ARTWORX wäre ich 
sehr dankbar. 

Markus Islinger 
Pentling 

An dieser Stelle möchten wir 
einen Aufruf an Sie richten: 
Wie so viele Leser hat auch 
Herr Islinger Probleme mit 
der Anpassung bei uns er¬ 
schienener Programme an 
seinen Drucker. Wir würden 
jedem liebend gerne helfen, 
leider gibt es hier zwei Grün¬ 
de, die das verhindern: 

1. ) die Zeit; wir haben leider 
nie genug davon, um uns je¬ 
dem Lescrproblem in dieser 
Richtung zu widmen, und 

2. ) die entsprechenden Geräte; 

sie befinden sich teilweise nur 
zeitweilig in unserem Besitz. 
Um den Lesern trotzdem zu 
helfen, wenden wir uns an 
Sie: Sollten Sie Ihren Drucker 
an das eine oder andere Pro¬ 
gramm angepaßt haben, 
dann schreiben Sie uns. Sie 
helfen nicht nur uns, sondern 
auch denen, die verzweifelt 
vor Ihrem Drucker sitzen 
und nicht weiterwissen. Und 
unsere Leserbriefseitc wird 
damit zum Treff der Compu¬ 
terfreunde. (Red.) 


Wo gibt’s Sprechi? 

Ich habe hier noch eine 
Adresse fiir alle Leser, die 
Probleme hauen, sich den 
Sprachchip SSI 263 A für den 
'Laberkasten' aus Sonder¬ 
heft 7/88 zu besorgen. Sie 
lautet: 

DSM DigitalService GmbH 
Landwehrstraße 37 
D-8000 München 2 

Der Chip kostet DM 94.42 
plus DM 7.50 Porto und Ver¬ 
packung. 

Steffen Wieschalla 
Gammertingen 

Vielen Dank für die Unter¬ 
stützung bei Beschaffungs¬ 
problemen. Wir haben aber 
auch noch einiges zum Spre¬ 
chi anzumerken: 

Leider hat sich die Sache 
nicht so entwickelt, wie wir 
uns das wünschten, daß 
heißt, Sprechi lief leider 
nicht auf allen Rechnern ein¬ 
wandfrei. Sollte Ihr Sprechi 
sich nicht äußern, so liegt es 
an einer falschen Adressie¬ 
rung. Der Chip kann da¬ 
durch zum Glück nicht zer¬ 
stört werden. Wir sind da¬ 
bei, eine Überarbeitung zu 
erstellen, die in einem der 
nächsten Hefte erscheinen 
wird. (Red.) 

Fehler im 3D-Graph 

Im Programm 3D-Graph aus 
Heft 9/88 habe ich drei Feh¬ 
ler entdeckt, und zwar in den 


Zeilen 110, 530 und 1030. 
Sie müssen richtig lauten: 
110 INK a, (13-i)*20/13+6 
530 y2 —yl-j % +xx3 

1030 P OKE i, VALC& “+“a") 
Martin Eberhardt 
Abtsgmünd 2 

Die Verbesserung haben wir 
hiermit weitergegeben. 

(Red.) 

Noch schneller... 

In der Dezemberausgabe in¬ 
nerhalb der Assemblerecke 
haben Sie eine Multiplika¬ 
tions- und Divisionsroutine 
vorgestellt und um noch 
schnellere oder kürzere ge¬ 
beten. Ich habe zwar keine 
eigenen schnelleren, jedoch 
kann man Ihre noch ver¬ 
kürzen: 

RL L: RL H (Zeilen 1480 - 
1490) kann man durch ADC 
HL,HL ersetzen. Dadurch 
spart man 2 (2*2-2) Byte und 
je Durchlauf 1 (2*8-15) 
Taktzyklus. We m 3 (4 + 11 + 
4-2*8) Taktzyklen mehr 
nichts ausmachen, schreibt 
statt 

SLA E:RL D am besten EX 
DE,HL:ADD HL,HL: EX 
DE,IIL. Dies scheint auf den 
ersten Blick länger zu sein, 
ist aber als Maschinencode 1 
(2*2-3* 1) Byte kürzer. 

Harry Kellermeyer 
Neuburg/Do. 

Dies als kleinen Anreiz für 
Bitzähler und Probierer. 

(Red.) 

(K)einer wird gewinnen? 

In Heft 4/88 befindet sich auf 
der Seite 58 das Programm 
’Einer wird gewinnen ’ von 
Marcus Ilomann. Mein CPC 
464 weigerte sich, mehr als 
10 Fragen zu bearbeiten. 
Eine Abhilfe war eine weite¬ 
re DIM- Anweisung, die in 
folgenden Zeilen eingefügt 
werden muß: 

In Teil 1, Zeile 155 DIM 
rfrfra+1, wissen) 

In Teil 2, Zeile 195 DIM 
rfrfra+1, wissen) 

Hans Homburg 
Ellerbek 

WELCO DMP1100 

ln seinem Leserbrief in Heft 
2/89 der PC AM STR AD 
schrieb Herr Luppert, er hät¬ 


te Schwierigkeiten mit sei¬ 
nem Drucker. Seit zirka ei¬ 
nem Monat besitze ich eben¬ 
falls einen WELCO DMP 
1100 und bin vollauf zufrie¬ 
den. Hier nun ein Tip für eine 
Anpassung von ART¬ 
WORX. PRG an den DMP 
1100. Mit einem Monitor¬ 
programm sollten Sie ART¬ 
WORX.PRG laden und in die 
folgenden Adressen den an¬ 
gegebenen Wert schreiben: 

60044 > &33 

60045 > &0F 

60046 > &00 

60047 > &1B 

60048 > cMB 

60049 > &7F 
&004A > &02 
&004B > &00 
Andererseits wäre es mög¬ 
lich, im DATA- Listing von 
ARTWORX.PRG die Zeile 1 
wie folgt zu ändern : 

1 DATA C3,4C,00,1B,33> DF,00, 
13,43,7F,02,00,21,DO,16, 
11,0363 

Dann aber nicht vergessen, 
die geänderte Version zu 
speichern, falls sie noch ge¬ 
braucht wird. 

Gerhard Schönfelder 
Hamburg 

Na bitte, ist das ein Service. 
In Heft 3 die Frage, in Heft 4 
die Antwort. Ein Lob aber 
auch unseren Lesern, die 
ihre 'Kollegen’ nicht im Re¬ 
gen stehen lassen. 

(Red.) 

ArtWorx 

auf den DMP 3160 

Da Sie mir leider keine An¬ 
passung an ArtWorx liefern 
konnten, habe ich mich 
selbst daranbegeben, meinen 
DMP 3160 anzupassen, und 
eigentlich eine recht einfache 
Lösung gefunden, die ich an¬ 
deren Lesern nicht vorent¬ 
halten möchte. 

Um den exakten Zeilen Vor¬ 
schub zu bekommen , müssen 
folgende Änderungen vorge¬ 
nommen werden: 

Das BAS/C-Programm ART¬ 
WORX. BAS enthält folgende 
geänderte Zeiten: 

360 '7/216 Zeilenvorschub 
370 P0XE zeil.envorschub+0,27 
380 P0KE zeilenvorschub+1,51 
390 P0KE zeilenvorschub+2,7 
400 ?0KE zeilenvorschub+3,0 
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Das Listing zur Erzeugung 
von ARTWORX. PRG erhält 
folgende neue Zeile: 

1 DATA C3,4C,00,1B,33,07,00, 

IS,2A,04,7F,02,21,DO,16, 
11,0346 

Anschließend muß es nur 
noch gestartet werden, damit 
das neue File ART- 
WORX. PRG erzeugt werden 
kann. Das alte ARTWORX. 
PRG sollte man sinnvoller¬ 
weise in ARTWORX. ALT 
umbenennen, um es im Falle 
eines Falles noch zur Verfü¬ 
gung zu haben. 

Nach diesen beiden Ände¬ 
rungen steht einem Ausdruck 
mit dem DMP 3160 nichts 
mehr im Wege. 

Reiner Met je 
Kalefeld- Westerhof 


Leider ist es so, daß wir nicht 
allen Anpassungswünschen 
gerecht werden können, 
dazu fehlen uns die Zeit und 
auch die Geräte. Daß es mit 
ein bißchen Überlegung und 
Probieren aber auch so geht, 
zeigt das Beispiel von Herrn 
Metje deutlich. 

Und falls das Bemühen mit 
Erfolg gekrönt sein sollte, 
sind wir gerne bereit, das 
Wissen an die weiterzuge¬ 
ben, die sich mit Eigenent¬ 
wicklungen schwerer tun. 
Also auch hier ein Danke¬ 
schön für die Hilfestellung. 



Wie zufrieden unsere Leser mit 
den Anpassungen sind, zeigt 
das ausgedruckte Beispiel, daß 
uns Herr Ruth zugeschickt hat. 
Er schreibt dazu (in Auszügen): 

Meine Begeisterung ist riesig, 
dafür hat sich das Warten ge¬ 
lohnt. Dank Herrn Lauxter kann 
ich ArtWorx nun auch auf mei¬ 
nem Seikosha SP 1000 einset- 
zen, die Begeisterung hat mich 
zu der oben abgebildeten Grafik 
inspiriert. Ich hoffe, es gibt 
noch mehr solche hervorragen¬ 
den Programme in Ihrer Zeit¬ 
schrift. Mit solchen Program¬ 
men wird sich der CPC noch 
eine ganze Weile auf meinem 
Computertisch behaupten. 

Manfred Ruth 
Norderstedt 


Na, das abgebildete Meister¬ 
stück kann ja nur als Anreiz die¬ 
nen. Und wenn weiterhin An¬ 
passungen erscheinen, dürfte 
die CPC-Wclt bald ganz im Art- 
Worx-Fieber sein. 

(Red.) 


ArtWorx 

und der CPA-80 GS 

Endlich ist es mir gelungen, 
meinen Drucker CMC CPA- 
80 GS an das Programm Art¬ 
Worx anzupassen. 

Die erste Zeile des DATA- 
Laders, der ARTWORX. 


PRG erzeugt, muß folgen¬ 
dermaßen lauten: 

1 DATA C3,40,00,13,41,05,00, 
1B,4B,7F,02,00,21,DO,16,11 

Übrigens: Das 4B bewirkt, 
daß das Blatt in voller Breite 
bedruckt wird. Wollen Sie 
aus irgendeinem Grund eine 


kleinere Ausgabe, tauschen 
Sie das 4B gegen ein 4C aus. 
Georgios Drakopoulos 
Raunheim 

Auch hier ein großes Danke¬ 
schön und noch eine Anmer¬ 
kung: Hat man das BASIC- 
Programm auf Datenträger, 


Achtung! BASIC-Programme gesucht! 


Für unsere ständige Programm-Rubrik suchen wir BASIC-2-Programme sowie Tips & Tricks. 


Alles, was Sie tun müssen, ist,Ihr selbstgeschriebenes Programm mit einer Bedienungsanleitung als Textdatei 
auf Diskette zu speichern und uns diese zuzusenden. Als Lohn für Ihre Mühe winkt bei Veröffentlichung ein in¬ 
teressantes Honorar. 


Übrigens liegen die besten Programme meist in den Schubladen (wo sie absolut nichts zu suchen haben) und 
werden aus fehlender Überzeugung nicht eingesandt. Da wir grundsätzlich jedes Programm ausführlich begut¬ 
achten, könnte Ihre Einsendung, versehen mit unseren Verbesserungsvorschlägen, vielleicht der Hit des näch¬ 
sten Monats werden. 


Also, auf bald.... 




Einsendungen bitte an den 
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kann man sich zwei Versio¬ 
nen des ARTWORX.PRG 
machen, die man je nach 
Gutdünken einsetzen kann. 

(Red.) 

Betr. Assemblerecke 1/89 

In Ihrem Beitrag über den 
’Blockmove’ schreiben Sie, 
daß hier mit Strings nichts 
anzufangen sei. Dies ist nicht 
richtig, denn die Anwendung 
von Blockmove ist bei String- 
arrays wohl die wichtigste. 
Ein String wird bei BASIC 
mit drei Byte festgelegt (ab¬ 
gesehen vom Stringnamen), 
das erste für die Länge, die 
zwei folgenden für die Adres¬ 
se im Variablen-RAM. 

Somit kann man mit 
FOR t=0 TO 2:tl=PEEK{@a$-t-t) 
:POKE @a$+t, PEEK (@b$-* t) : 
POKE @b$+t, 11: NEXT 

zwei Strings ohne ’Garbage ’ 
vertauschen. Dieses Verfah¬ 
ren hat in älteren BAS/C- 
Dialekten mit längerer 
’GARBA GE-COLLECTION' 
seine Vorteile. 

Es ist dann auch möglich, ein 
St ringar ray a$(n) nach b$(n) 
mit CALL &A600,@a$(0), 
@b$(0),(n + l)*3 zu ko¬ 
pieren. 

K. T. Woudstra 
Rotterdam 


Drucker STAR LC10 

Gibt man in Verbindung mit 
einem STAR LC10 folgende 
Zeile ein, so druckt dieser die 
Dipschalterstellung aus: 
PRINT # 8,CHR$(27)CHR$(0) 

Heiko Petersen 
Mohrkirch 


Artworx und Seikosha 
SP-1200 AI 

In der Ausgabe 2/89 be¬ 
schrieb F. Lauxtermann, wie 
man Artworx an den Seiko¬ 
sha SP-1000 anpassen kann. 
Der Seikosha SP-1200 
spricht auf diese Änderung 
nicht ganz an. In der 1. Zeile 
(DATA ....) müßte der 
6. Werl in 06 geändert wer¬ 
den. Der DIP-Schalter 1-5 
muß dabei auf "ON“ (nach 
oben) geschaltet werden. 
Weitere Änderungen sind 
nun nicht mehr notwendig. 

Günther Kreft 
Neustadt 


Ein großes Lob 

Vor kurzer Zeit habe ich mir 
Ihre Joyce PCW-Programm- 
sammlung Vol. 5 gekauft. 
Nachdem ich etwas damit ge¬ 
arbeitet habe, liegt es mir am 
Herzen, dem Autor dieses 
Dateiprogramms zu seinem 
überaus nützlichen Werk¬ 
zeug zu gratulieren, ist doch 
diese Dateiverwaltung mit 
Abstand die beste, die mir 
bisher für den Joyce begeg¬ 
net ist. 

Ich habe damit eine Datei mit 
etwa 750 Lebensmitteln mit 
jeweils 23 Einzelangaben 
angelegt. Das Ganze 
braucht allerdings nur 72 
KB, was wirklich sehr be¬ 
merkenswert ist. 

Diese Datei dient einem zu 
schreibenden Programm für 
Kalorien-, Nährstoff-, Mine¬ 
ralstoff- und Vitamingehalt 
beliebig zusammengesetzter 
Menüs. 

Hans- Walter Bender 
Meckenheim 


Out-Befehle auch für den 
Joyce PCW? 

Nachdem ich mir vor kurzer 
Zeit einen JOYCE PCW8512 
zugelegt habe, hat mir ein 
Bekannter, welcher einen 
CPC 6128 besitzt, gesagt, 
daß man hier mit Out-Befeh- 
len viele Sachen machen 
kann, für die man normaler¬ 
weise ein Assemblerpro¬ 
gramm braucht oder ein sehr- 
langes Basic-Programm. Da 
ich allerdings noch nicht in 
Assembler programmieren 
kann, bin ich also an solchen 
Befehlen für meinen JOYCE 
interessiert. Haben Sie viel¬ 
leicht einige dieser Befehle 
vor liegen, so daß ich sie in 
eigene Programme einbauen 
kann ? 

Frank Rieger 
Dortmund 

Selbstverständlich liegen uns 
einige dieser Befehle vor. 
Hier nun einige der wichtig¬ 
sten: 

OUT 248,7 

- Bildschirm einschalten 
OUT 248,8 

- Bildschirm ausschalten 
OUT 248,11 

- Dauerpiepston ein 


OUT 248,12 

- Dauerpiepston aus 

FOR 1=0 TO 255:OUT 
246,1: 

NEXT I 

- Bildschirm nach oben 
scrollen 

Vertauscht man hier die Zah¬ 
len 0 und 255, wird der Bild¬ 
schirm nicht nach oben, son¬ 
dern genau umgekehrt nach 
unten gescrollt. 

(Red.) 


Spiele für den Joyce PCW 

Da ich ganz gerne auch 
mit/an meinem Computer 
spielen möchte, stellt sich die 
Frage, ob es solche Spiele 
auch für den Joyce PCW 
gibt. 

Dr. Peter Neuling 
Würzburg 

Es gibt auch für den Joyce ei¬ 
nige Spiele, (Tetris, Icon 
Jon, Match Day II, um nur 
einige zu nennen). 

Wo sie diese bekommen 
können, entnehmen Sie bitte 
den Anzeigen in unserem 


CP/M + - Dienst¬ 
programm SETDEF 

Auf den milgelieferten Sy¬ 
stem-Disketten des Joyce fin¬ 
den sich einige Programme, 
mit denen ich nicht so ganz 
klarkomme. Wie und wann 
kommt das Programm SET¬ 
DEF z.um Beispiel zum Ein¬ 
satz ? 

Des weiteren würde mich in¬ 
teressieren, ob es bei mei¬ 
nem Joyce PCW die Mög¬ 
lichkeit gibt, Unterverzeich- 
nisse zu erstellen, wie es auf 
dem PC möglich ist. 

Heinz Schwenk 
Bremen 

1. Das Programm SETDEF 
bietet Ihnen viele Möglich¬ 
keiten. So kann man zum 
Beispiel die Reihenfolge der 
Laufwerke festlegen, in der 
dann später bei der Eingabe 
eines Befehls unter CP/M + 
nach dem auszuführenden 
Programm gesucht wird. 


Der Befehl A> SETDEF 
A:.B:,M: setzt also Lauf¬ 
werk A an die erste, Lauf¬ 
werk B an die zweite und 
Laufwerk M an die letzte 
Stelle. 

SETDEF A:,* [order = 
(sub.com)] 

läßt den Computer zuerst 
nach einen SUBrnit und erst 
dann nach einer COMman- 
dodatei suchen. 

2. Unterverzeichnisse in 
dem Sinne können auf dem 
Joyce nicht erstellt werden. 
Es ist jedoch möglich, ver¬ 
schiedene User anzuspre¬ 
chen. Dies geschieht unter 
CP/M+ durch die Eingabe 
von A>USER x < RE¬ 
TURN > . Für x ist hier eine 
Zahl zwischen 0 und 15 ein¬ 
zugeben. 

(Red.) 


Bedingtes SUBMIT auch 
für den JOYCE 

Ein bedingtes SUBMIT wäre 
auch für den JOYCE PCW 
eine gute Sache. Daher habe 
ich Ihr Listing für den CPC 
6128 aus dem Heft 1/89 ab¬ 
getippt. Mit ein paar kleinen 
Änderungen ist es möglich, 
die drei COMmando-Datei- 
en auch auf dem JOYCE zu 
erzeugen: 

20 OPEN “0“, #1,“IF. COM“: REM 
bzw. der. jeweiligen Dateinamen 
30 READ b$:n=VAL("&H“+b$) 

40 IF N=0 TUEN CL0SE: END 
60 READ b$: b=VAL (“ &H “+b$) 

70 PRINT #1,CHR$(B);:S=S+3: 
NEXT I 

Die damit erzeugten COM- 
Files laufen nun auch auf 
dem JOYCE PCW. 

Herbert Moschitz 
Graz 


Probleme mit TABKALK 

Auf der TABKALK-D1S- 
KETTE (JOYCE VOL.6) ist 
von der Datei Tabkalk.sub 
die Rede. Sie ist allerdings 
nicht unter diesem, sondern 
unter dem Namen Profile 
.sub auf der Diskette gespei¬ 
chert. 

(Red.) 
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VGA-Monitor am PC 1640 

Ich betreibe im Moment ei¬ 
nen PC 1640 mit Mono¬ 
chrom-Monitor, möchte die¬ 
sen aber zwecks höherer Auf¬ 
lösung und Farbe mit einem 
VGA-Monitor aus rüsten. 
Mein Händler sagte mir, daß 
für den 1640 von AMSTRAD 
kein VGA-Monitor angebo- 
ten wird. 

Können Sie mir vielleicht 
Fremdfabrikate nennen, die 
ich an den PCI640 anschlie¬ 
ßen kann und die in Preis 
und Qualität einer Hobbyan¬ 
wendung gerecht werden ? 
Brauche ich zu dem Monitor 
und dem notwendig werden¬ 
den Netzgerät noch eine 
VGA-Karte? Mein Händler 
sagte mir, daß diese mit Hilfe 
eines Software-Treibers und 
dem Multifunktions-Gra- 
fik-Chip simuliert wird, 
konnte mir allerdings nichts 
genaueres sagen. 

Ich hoffe sehr, daß Sie mir 
helfen können, da ich meinen 
PC erst seit einigen Monaten 
besitze und noch nicht über 
große Fachkenntnis verfüge. 

Volkmar Schwert 

Rheine 

Es geht doch nichts über eine 
ausführliche Information 
vom Fachhändler, oder? 

Jetzt aber ernsthaft. Sie brau¬ 
chen für den Betrieb des 
VGA-Modus zwei Kompo¬ 
nenten: 

Zum einen eine VGA-Gra- 
fikkarte, diese gibt es in un¬ 
terschiedlichen Bauformen, 
darunter auch selbstkonfigu¬ 
rierend, das heißt, diese Kar¬ 
te wird automatisch vom 
Rechner erkannt und auf den 
gewünschten Modus einge¬ 
stellt. Zum anderen benöti¬ 
gen Sie noch einen Multi- 
sync-Monitor, der analoge 
Bildsignale verarbeitet. Die¬ 
ser wird direkt an die Karte 
angeschlossen. Bliebe nur 
noch die Frage des Netzteiles 
zu klären. Hier müßten Sie 
einen Kompromiß zwischen 
internen (Alt-Monitor) oder 
externen (werden von eini¬ 
gen Händlern angeboten) 
schließen. Am besten ist es, 
Sie lesen sich dazu auch un¬ 
seren Artikel in diesem Heft 
(PC-Rubrik) durch. 

(Red.) 


Fehler im BASIC2 
behoben? 

Auch ich habe mich immer 
über diesen ’Fehler ’ (plötzli¬ 
che Maussteuerung über 
Cursortasten) im BÄSIC2 ge¬ 
ärgert, bis ich im Handbuch 
meines AMSTRAD PC 1640 
den Hinweis fand, daß man 
mittels der CTRL-Taste zwi¬ 
schen CURSOR und Maus¬ 
zeiger umschalten kann. 

Wenn sich mir den CURSOR- 
Tasten nur der Mauszeiger 
bewegen läßt, braucht man 
nur die CTRL-Taste zu 
drücken, die die Umschal¬ 
tung durch Piepton anzeigt. 
Nach der Umschaltung funk¬ 
tionieren dann auch die 
HOME-, END- und NUM- 
LOCK-Taste in der richtigen 
Weise. 

Wahrscheinlich drückt man 
hin und wieder versehentlich 
nur auf die CTRL- Taste, da 
diese direkt neben den nor¬ 
malen Buchstabentasten 
liegt, die dann, wie im Leser¬ 
brief geschildert, den lästi¬ 
gen Umstand schafft, daß 
durch die Cursortasten der 
Cursor nicht bewegt werden 
kann. 

Kurt- Jürgen Wetzel 

Hemer 

Stellvertretend für einige 
Zuschriften haben wir diese 
von Herrn Wetzel abge¬ 
druckt. die eine Erklärung zu 
dem Problem aus Heft 1/89 
enthält. Ob damit allerdings 
alles erklärt ist, ist nur zu 
vermuten. Sollte noch je¬ 
mand etwas dazu zu sagen 
haben, wir haben ein offenes 
Ohr (bildlich gesprochen). 

(Red.) 


Und noch ein ‘Fehler’! 


Ich habe diesen Fehler im¬ 
mer dann bemerkt, wenn ich 
ein Programm abgespeichert 
habe! 

Übrigens: Es ist doch mög¬ 
lich, BASIC2- Programme 
von MS-DOS aus zu starten, 
das zu startende Programm 
muß jedoch im Unterver¬ 
zeichnis GEMBOOT vorhan¬ 
den sein, da BASIC2 sonst 
die Fehlermeldung “DATEI 
NICHT VORHANDEN“ aus¬ 
gibt. Im folgenden Beispiel 
wird das Programm 
“DEMO. BAS“ gestartet: 
GEM BASIC2 DEMO. BAS 
Diese Möglichkeit funktio¬ 
niert jedoch nur mit einer 
Festplatte. 

Markus Drexelius 
Usingen 1 


Probleme mit dBase II 
und dem NLQ 401 

Auf meine Anfrage bezüglich 
der Druckmöglichkeiten des 
dBase H-Programmes (Ver¬ 
sion 2.41) mit meinem AM- 
STRAD-Drucker NLQ 401 
konnten Sie mir leider nicht 
weiterhelfen und rieten mir, 
mich an den Vertreiber des 
Programmes zu wenden. 
Dies habe ich auch schon ge¬ 
tan, bekam jedoch nur den 
Hinweis, mich an das Hand¬ 
buch zu halten, leider kam 
ich jedoch auch hier nicht 
weiter. 

Ich kann mir einfach nicht 
vorstellen, daß es für den 
NLQ 401 keine Ausdruck¬ 
möglichkeit unter dBase II 
geben soll. Vielleicht könn¬ 
ten Sie meinen Brief im Heft 
veröffentlichen, und ein Le¬ 
ser oder eine Leserin kann 
mir weiterhelfen. 

Helmut Frankenberger 
Augsburg 

Haben wir hiermit getan! 

(Red.) 


Beispiel bei der Buchhand¬ 
lung Boysen & Mansch, Fer¬ 
dinandstraße. Für wenig 
Geld erwerben Assembler- 
Freaks damit ein sehr nützli¬ 
ches Werkz.eug. Fragen Sie 
doch Ihren örtlichen Buch¬ 
händler, ob er Ihnen dieses 
Heft (Umfang 24 Seiten- 
DIN-A6 quer) besorgen 
kann. 

Horst Buchholz 
Bienenbüttel 


Vielen Dank für den Hin¬ 
weis. Interessenten können 
ja mal bei Ihrer Buchhand¬ 
lung nachfragen, eine solche 
’Reference Card’ kann unter 
Umständen Gold wert sein. 

(Red.) 


Trick für das 
Vortex-Laufwerk 

Ich möchte Ihnen einen Trick 
mitteilen, der es ermöglicht, 
mit der Vortex-FIX-Floppy 
40- Trackformatierte Disket¬ 
ten zu lesen. Vor einiger Zeit 
habe ich schon einmal etwas 
darüber gelesen, glaube 
aber, daß meine Methode 
viel kürzer und einfacher ist. 

Wenn Sie die Floppy öffnen 
und auf die linke Seite des 
Drives schauen, sehen Sie 
viele Steckbrücken, soge¬ 
nannte Jumper: 

Vorderseite oben 
ABCDEFGHIJ KLM 


NOPQR STUVWXYZ 

Die Punkte H und I. K und L, 
P und Q, U und V sind durch 
Jumper miteinander verbun¬ 
den. Wenn Sie nun die Punk¬ 
te M und Z auch miteinander 
verbinden , arbeitet die Flop¬ 
py wie ein 40- Track- Drive. 
Am besten wäre es, an M und 
Z je einen Draht und einen 
Schalter anzuschließen, da¬ 
mit kann man zwischen 40 
und 80 Track umschalten 
(beim 40-Track-Mode muß 
vorher das mit gelieferte Pro¬ 
gramm FIZ.BAS gestartet 
und die Steprate eingestellt 
werden). Der beste Platz für 
den Schalter ist neben dem 
Netzkabel an der Hinterseite. 

Ad Kerremans 
NL-TK Made 


Ich habe noch eine weitere 
'Macke ’ des BASIC2 ent¬ 
deckt! Nach mehrmaligem 
Öffnen und Schließen von 
Windows werden diese nicht 
mehr ordnungsgemäß von 
BASIC2 gesteuert. Alle vor¬ 
her geöffneten Fenster blei¬ 
ben offen. Auch ein ’CLEAR 
RESET’- Befehl hilft nicht 
mehr, nur noch der letzte 
Ausweg 

’ALT 4- CTRL + DEL'. 


Tip für Assembler- 
Freunde 

Die von der Firma Zilog 
(10460 Bubb Road, Cuperti- 
no, California 95014) her¬ 
ausgegebene “Programming 
Reference Card“ mit wichti¬ 
gen technischen Angaben 
und sehr übersichtlichen Be¬ 
fehlszusammenstellungen 
gibt es zum Preis von DM 
500,— noch zu kaufen, zum 
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AMS-Line- 

der direkte Draht zur Firma AMSTRAD 

Wie jeden Monat präsentieren wir Ihnen neueste Informationen von der 
Firma AMSTRAD. 


PC 2086 SD 

— Windows für Geduldige 

Obwohl im “Microsoft Windows LEITFA¬ 
DEN“ zum PC 2086 ausdrücklich darauf hin¬ 
gewiesen wird, daß man “Einen Personal 
Computer ...mit zwei doppelseitigen Disket¬ 
tenlaufwerken...“ benötigt, um Windows ent¬ 
setzen zu können, kann man mit ein paar 
Tricks und etwas Geduld auch auf dem SD in 
den Genuß von Windows kommen. 

Zum Installieren benötigen Sic neben den Ori¬ 
ginaldisketten zwei formatierte Leerdisket¬ 
ten. Nach dem Starten des Rechners und dem 
Aufruf des Programms SETUP werden Sie 
dazu aufgefordert, eine Leerdiskette ins Lauf¬ 
werk B: einzulegen, damit die benötigten Pro¬ 
grammteile von der Originaldiskette kopiert 
werden können. An dieser Stelle nehmen Sie 
die Originaldiskette aus A: und legen statt 
dessen die Leerdiskette ein. MS-DOS fahrt 
jetzt so fort, als wäre das Laufwerk B: vor¬ 
handen. Kurz danach werden Sie dann wieder 
aufgefordert, die Diskette in Laufwerk A: 
einzulegen. Nach dem Einlegen der Original¬ 
diskette ins Laufwerk wird mit der Installa¬ 
tion fortgefahren. MS-DOS arbeitet also so. 
als wären zwei Laufwerke vorhanden: Es be¬ 
nutzt ein “virtuelles“ Laufwerk B:. Jedesmal, 
wenn Sic aufgefordert werden, eine Diskette 
in Laufwerk A: einzulegen, ist die jeweilige 
Originaldiskette gemeint, jedesmal, wenn 
eine Diskette in B: eingelegt werden soll, die 
Leerdiskette. Auf diese Art und Weise erhal¬ 
ten Sie eine kombinierte Lade- und System¬ 
diskette für Windows; die Kapazität reicht 
zum Glück aus — lassen Sie sich nicht davon 
verunsichern, daß die Installation irgendwann 
mit der Meldung, die Diskette sei voll, abge¬ 
brochen wird. An dieser Stelle sollten, sofern 
Sie keine Fehler gemacht haben, alle notwen¬ 
digen Teile bereits kopiert sein. Lediglich die 
Anwendungsprogramme passen nicht mehr 
auf die neue Diskette. Diese Anwendungspro¬ 
gramme kopieren Sie (am besten mit DISK- 
COPY A: A:) auf die zweite Leerdiskette. 

Jetzt können Sie mit Ihrer neuen Startdiskette 
Windows aufrufen. Nachdem das Fenster mit 
dem Direktory erschienen ist, können Sic die 
Diskette mit den Anwenderprogrammen ein- 
Icgcn und erhalten durch Klicken auf das 
Laufwerkssymbol das neue Direktory. Also 
schnell ein Programm aufgerufen und... Win¬ 
dows fordert dazu auf, die Systemdiskette 


(gemeint ist die Windows-Systemdiskette) ins 
Laufwerk A: einzulegen. Danach müssen Sie 
wieder die Anwendungsdiskette cinlegen. 
Das kann im Falle von PAINT dreimal hin- 
und hergehen, was natürlich recht lästig ist. 
Aber wozu hat man denn einen Computer mit 
viel Speicherplatz?! Fügen Sie in die CON¬ 
FIG.SYS die Zeile DEVICE=RÄMDRIVE 
.SYS 100 ein, dann legt MS-DOS beim Star¬ 
ten des Rechners eine RAM-Disk von 100 
kByle an. In diese können Sie nun z.B. 
PAINT kopieren und von dort starten. Wenn 
die Windows-Systemdiskette im Laufwerk A: 
liegt, brauchen Sie keinen Diskettenwechsel 
mehr vorzunehmen. Viel Spaß mit Windows! 

Sollte Ihnen die Meldung “Bitte Diskette mit 
COMMAND.COM ... “ auf die Nerven ge¬ 
hen. legen Sie doch gleich 25 kByte mehr 
RAM-Disk an und kopieren (z.B. über die 
A UTOEX EC. BAI') COM M AND.COM 

dorthin. Fügen Sie dann in die AUTO¬ 
EXEC.BAT noch die Zeile SET 
COMSPEC = C: COMMAND.COM ein, und 
Ihr Betriebssystem findet von jetzt an alleine 
seinen Kommandointerpreter. 


Textverarbeitung auf dem CPC 
Die Firma dialog partner in Berlin bietet unter 
dem Namen “Text-Privat“ ein schnelles und 
recht komfortables Textverarbeitungspro¬ 
gramm an. Die Benutzerführung ist recht ein¬ 
fach gehalten, aber cs sind praktisch alle 
Funktionen eines “ausgewachsenen“ Text- 
programms enthalten. Es können bis zu 12 
Seiten DIN A4 im Arbeitsspeicher bearbeitet 
werden, Funktionen zur Textformatierung, 
Abspeichern von bis zu 26 Floskeln usw. Alle 
Einstellungen werden beim Verlassen des 
Programms abgespeichert, so daß beim neuen 
Starten nicht wieder alle Änderungen von 
vorne beginnen. 

Die Anleitung zum Programm ist für unseren 
Geschmack etwas kurz geraten, was man al¬ 
lerdings angesichts des Preises von 95,80 DM 
verschmerzen kann. Zu beziehen ist das Pro¬ 
gramm über die folgende Anschrift: 
dialog partner in berlin GmbH 
TUe-Wanehberg-Str. 6 
1000 Berlin 21 
Tel.: 030/3914051 


Datenübertragung PCW — PC 
Eines der großen Themen in letzter Zeit war 
die Datenkonvertierung/-übertragung. Sei es. 
daß PC und PCW beide parallel verwendet 
werden, sei es, daß von “Umsteigern“ die al¬ 
ten Daten übertragen werden müssen. Ob¬ 
wohl bereits mehrfach Artikel zu diesem The¬ 
ma in der AMSTRAD International erschie¬ 
nen sind, scheint es daher sinnvoll, diesen 
Punkt nochmals anzusprechen. Generell gibt 
es zwei Wege der Übertragung: über die se¬ 
riellen Schnittstellen der Rechner und Date¬ 
nübertragungsprogramme wie z.B. KER- 
MIT; wenn 3,5-Zoll oder 5,25-Zoll-Laufwer- 
ke am PCW betrieben werden, auch direkt 
über die Disketten und enlspr echcndc Kon- 
verticrungsprogramme (z.B. MS-Copy). Zu 
diesem Themenbereich können Sie von uns 
Informationsrnateria) beziehen - einen mit 
1,30 DM frankierten Rückumschlag hei 
legen. 

Die Umwandlung von LocoScript-Texten 
ins ASCII-Format 

Unter LocoScript 2 ist die Umwandlungsrou¬ 
tine (mit der Option, “formatierte“ Texte zu 
liefern) relativ komfortabel, und vor allem 
werden auch die Umlaute korrekt urngesetzt. 
Bei LocoScript 1 kommen anstelle der Um¬ 
laute im ASCII-Text plötzlich Klammern und 
ähnliches. Wenn man sich die Zeiehensatzta- 
bclle im CP/M-Teil des Handbuches an¬ 
schaut, kommt man dann schnell auf die rich¬ 
tige Idee. Dort findet man nämlich zweimal 
Umlaute, einmal im “normalen“ Teil und ein¬ 
mal unter “Weitere Bedeutung“. LocoScript 
benutzt die Kodierung unter “Weitere Bedeu¬ 
tung“ für die Umlaute, während CP/M (und 
auch MS-DOS) die Zuordnung der ersten 
Spalte benutzen. Beim Umwandeln mit Loco¬ 
Script 1 bleibt die ASCII-Nummcr gleich, 
d.h., man erhält dann das in der ersten Spalte 
angegebene Zeichen statt des Umlautes: z.B. 
Ä - > f. Um dies zu vermeiden, kann man be¬ 
reits unter LocoScript mit “Ersetzen“ die 
Umlaute und ß gegen die entsprechenden Zei¬ 
chen des CP/M-Zcichcnsatzes austauschen 
(die Lage finden Sie auf den Abbildungen zur 
Tastaturbelcgung). Wenn der Text unter Lo¬ 
coScript weiterverwendet werden soll, sollte 
man vorher natürlich eine Kopie erstellen. 


Ihre 
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fi Arnor: 

PROWORT 

219,- 

PROTEXT: 


•r-Diskette 

94,- 

• EPROM 

124,- 

MAXAM (ZaoEniw): 

• 3"-Diskette 

94,- 

•EPROM 

124,- 

MAXAM II 

239,- 

PROSPELL: 


•engl. Vers. 

50,- 

• dtsch. Vers. 

70,- 

Dtsch. Handbuch: 

...PROTEXT 

19,80 

| ...MAXAM 

19,80 

1 VAN DER ZALM 

ADRESCOMP 

58,- 

DATENREM 

68,- 

FAKTUREM 

78,- 

FIBUKING 

136,- 

LAGDAT 

68,- 

TEXTKING 

78,- 

COMFORM 

48,- 

ETATGRAF 

58,- 

FIBUCOMP 

98,- 

KALKUREM 

78,- 

PROFIREM 

136,- 

VOKABI 

V 

58,- 


STAR-DIVISION 


STAR-WRITERI 98,- 
DATEI-STAR 98,- 


Kopierprogramme 


Supercopy 

Mastercopy 


65,- 

69,- 


CPC-Adventures: 


Diamant von Rabe nleis (g) 
Drachen land (t) 

Reise durch die Zeit (t) 
Sherlock Holmes (g) 

Auftrag In der Bronx (g) 

Insel der Smaragde (t) 

Das Pharaonengrab (t) 

(t - text; g - Grafik; alle In 
deutsch) 

je Kassette 39,- 

je Diskette 49,- 


Mini Office II 


Text • Datenbank-Grafik- 
Etikettendruck • Tabellen¬ 
kalkulation • engl. Handb. • 

Komplett für nur 98,— 


ROMBOX (CPC) 118,- 
VIDI (CPC) 348,- 

VIDI (Joyce) 378,- 
VIDI (IBM-KOMP.) 448,- 


dk'tronics CPC 


für 464/664: 

Speech Synth. (ROM) 
Speech Synth. (Kas.) 
Llghtpen (Kas.) 

64 k Erweiterung 
256 k Erweiterung 
256 k Silicon D»k 
Uhrenmodul 

für 6128: 
256 k ErweHerung* 
256 k Silicon Disk* 

64 k Silicon Disk* 
Speech Syn. (ROM)* 
Llghtpen (ROM)* 
Uhrenmoduf* 

Adapter (♦) 


148,- 

96 ,- 

68 , 

168,- 

348,- 

378,- 

128,- 

348,- 

378,- 

168,- 

148,- 

98,- 

118.- 

39,- 


AMX-Mouse CPC 


Steuerung Ihres CPC Ober 
den Bildschirm • mit hervor¬ 
ragendem Grallkprogramm • 
org. engl. Handbuch * 

nur 278, 

.. .Handbuch deutsch 
29,80 


Seitengestalter 
Erlaubt Herstellung von Zei¬ 
tungen, Poster und Hand- 


Alles für Ihren CPC 


zettel • benötigt 64k Zusatz¬ 
speicher bei 464 und 664 
(nur dk'tronlcsll) • mit orginal 
englischem Handbuch 
StopPress 198,- 

St.Pr.+AMX Maus 348,- 
...Handbuch deutsch 

19.80 


Stop Press Ufililies 


Extra I 

Jede Menge neue Fontsl 

129,- 


EASI-ART+ Trackerball 


Marconl-Trackerball jetzt 
auch für den CPCI MH dem 
hervorragenden Grafikpro- 
gramm EASI-ART von Micro- 
draw. 

komplett für nur 298,- 

...komplett mit StopPress 
Paketprei* 448,- 


Gerdes Maus 


Ähnlich AMX-Mouse für CPC. 
MH Graflksoftwarel 179,- 


(Kopierprogramm) 

Vollständige Kopiereinrich¬ 
tung für Kassetten und Disk. 
Super!! 178,- 

Adapter für 6128 39,- 


Darf - Scanner CPC 


Scannen von Bildern und 
Grafiken In Verbindung mH ei¬ 
nem kompl. Grafikprogramm. 
Sie benötigen dazu einen 
DMP 2xxx/3xxx Drucker. MH 
deutscher AnleHung I 
komplett für nur 249,— 

Adapter CPC 6128 39,- 


BTX-Modul 


Jetzt auch für CPC'sl Erlaubt 
den Anschluß Ihres CPC s an 
den BTX-Rechner der Bundes¬ 
post I 398,- 


Schaltpläne CPC 


CPC 464/664 
CPC 6128 
CTM644 


29,80 

29.80 

19.80 


CTM640 
GT 64/65 


19,80 

19,30 


Handbücher deutsch 


■MiniOffice II 29,80 

■ AMX-Mouse 29,80 

■ StopPress 19,30 

■ dk'tronics Erw. 19,80 


Dalenfemuberlragung 


Dataphon 21 S 

278,- 

Dataphon 21-23 S 

378,- 

Anschlußkabel 

68,- 

Treibersoftware 

58,- 


Anschluß Ihres CPCs an 

jedes Fernsehgerät 1 


kompl. für nur 

129,- 

Verschiedenes: 

dBase II 

199,- 

Multi plan 

199,- 

Vokabeltrainer: 


• Kassette 

39,- 

• 3”-Diskette 

49,- 

Verbentrainer: 


■ Kassetle 

49,~ 

•3"-Diskette 

59,- 


Kot ulla-Soff wäre: 

WS-T uner 

für Wordstar 49,80 
PO Softwa’e 1-19 je 30,- 


1 Arnor: 1 

PROWORT 

219,-- 

PROSPELL 

79,- 

MAXAM II 

239,- 

VAN DER ZALM: 

ADRESCOMP 

58,- 

COMFORM 

48,- 

DATENREM 

68,- 

ETATGRAF 

58,- 

FIBUKING 

136,- 

LAGDAT 

68,- 

PROFIREM 

136,- 

VOKABI 

58.- 

FAKTUREM 

78,- 

KALKUREM 

78,- 

Locomotive: 1 

LocoScript 2 

148,- 

LocoMail 1 

128,- 

LocoMail2 

211,- 

LocoSpell 2 

168,- 

L. Script + Spell 

248,- 

LocoFile 

168,- 

LocoFont 

89,- 

Verschiedenes: 1 

Multiplan 

198,- 

dBase II 

198,- 

Tasword 8000 

148,- 

s *---- v;vi ‘.——f 


Headline 198,- 

RH-DAT (Dalenb.) 98,- 
Turbo Pascal E. 225,- 
DR-Graph 198,- 
DR-Draw 198,- 

Datamat (Daienb.) 99,- 
Prompt (Dateiprg.) 69,- 
Prompt Druck 39,- 
MICA(CAD) 198,- 
Vokabeltrainer 59,- 
Verbentrainer 49,- 
Datamat 99,- 

TurboAdress 98,- 
Turbo Faktura 148,- 
varDat 199,- 

B asic Compiler 139,- 
Comform 59,- 

ComacLitbox 148,- 
COMAC- 

KassePlus 168 ,- 
Vereinsverwall. 198,- 
Schreiblehrgang 89,- 
PSE2 129,- 

Fleetstr. Edit. 199,- 
WS-T uner für 
Wordstar 49,80 
Joyce-Mouse Pack 
benötigt RS232 1 78,- 


Kopierprogramm 


Alles für Ihren Joyce 


Supercopy 


85,- 


FISKUS 1987-1988(89) 
Lohnsteuer-Jahresausgleich 
für m» 139,- 

STATISTIK-STAR 

Grafik- und Statistikprgamm 

nur 98,- 

STAR-MAIL 

Erweiterung von LocoScriptl 
Ausdruck auf Fremddruckern 
Serienbrleferslellung... 

nur 98,- 

DATEI-STAR 

Datei verwaHungssystem 

nur 98,- 

MAILING-SYSTEM 

Softwarepaket: STAR-MAIL 
♦ DATEI-STAR 189,- 

STAR-BASE 

Datenban ksystem 198,-- 

BUSINESS-STAR 

Auftragsbearbeitung mH: 
Fakturierung / Lager/ Mahn- 
weßen / Datenverwaltung ... 

298,» 


FIBU-STAR PLUS 

Prof. FinanzbuchhaRung 

298,- 


LOCO-MERGE 

Serienbrieferst. 

98,- 

Jovce-SDiele: 

ACE 

69,- 

Balman 

59,- 

Bounder 

49,- 

Bridge Player 

59,- 

Clock Chess 88 

69,- 

Colossus Bridge 

53,- 

Colossus Chess 

69,- 

Fairlight 

59,- 

F.B. Boxing 

69,- 

Football Fort. 

69,- 

Head over Heels 

49,- 

Jewels Darkness 

89,- 

KnightOrc 

69,— 

Match Day 2 

49,- 

Pawn 

89,- 

PSI5Trading 

49,- 

S.A.S. Raid 

59,- 

Strike Force H. 

69,- 

Tetris 

65,- 

Tomahawk 

79,- 


Professional 
TexfverarbeHung • DFÜ • 
Datenbank ■ Tabellenkalku¬ 
lation • G esc halt sgralik • 

Das Integrierte Softwarepa¬ 
ket, für hohe Ansprüche, 
komplett für nur 138,— 
...deutscher Zeichensatz 
auf 3"-Diskette 29,80 

Seitengestalter 
Sensationelles DTP-Progr. 
für den Joyce • engl. Handb. 

StopPress 198,- 

St.Pr. ♦ AMX Maus 398,- 

■rm^Mii-wffwsgga 

Steuerung Ihre6 Joyce Ober 
den Bildschirm. Mit hervor¬ 
ragender Software: AMX- 
Desktop-Programm • Notiz¬ 
buch ■ Kalender • engl. Handb 
nur 298,- 
Adapter 39,- 


Margin Maker 


Ideale Papierführung für Ihren 
Joyce-Drucker. 

nur 39,90 


322 

Mas ;e'Scan & Pairt 
Scanner einfach auf 
Druckerkopf stecken und 
k)6 geht'sl 

MasterScan 298,- 

MasterPaint 78,- 

Paketpreis nur 338,- 

Adapter 39,- 

Professionelles Desklop- 
Publlshing auf Ihrem Joyce 

118,— 

... kompi. mit AMX-Msus 
348,- 

wmrTnmsmim 

Joystlck-Conroller* 69,- 

Contr.+Sound* 129,- 

EchtzeHuhrenmoduf* 129- 
256 k ErweRerung 248,- 

Adapter (*) 39,- 


Aufgepasst ** 

Alle engl. Produkte werden 
mH orginal engl. Handbuch 
ausgeliefertl Für 29,80 {*) 
bzw. 19,80 (**) erhalten 
Sie zusätzlich die jeweilige 
deutsche Übersetzung. 


Diskettenlaufwerke 


Zweitlaufwerke CPC: 
(aus eigener Produktion) 

3“-Laufwerk 298,- 

3,5”-Laufwerk 398,- 
5l/4”-Laufwerk 448,- 


AMSTFtAD-Laufwerke 
für CPC: 

FD1 299,- 

DD1 (mltContr.) 499,- 


Zweitlaufwerk Joyce: 
(aus eigener Produktion) 


3,5”-Laufwerk 
51/4"-Laufwerk 


348, 

448, 


AMSTRAD-Laufwerk 
für Joyce: 

FD4 498,- 


Datenrekorder 


für CPC 664 .6128 
Ind. Kabel 


89,— 


Abdeckhauben CPC 


■KonsoleCPC je i960 

■ Monltore je 29,80 

■ DMP-Drucker je i960 

■ Floppy s je 1660 


Diskettenboxen 


373.5” 40 
80 


\373,5” 


39.80 

49.80 


Zubehör 


Schnittstellen 


vonAMSTRAD 
Joyce RS232 198,. 

CPC RS232org. 198, 
... von Schneider 148,- 


Schaltpläne 


...Joyce 

29,80 

... PC 1512 

29,80 

... PC 1640 

29,80 

... Monitor PC 

19,80 

P*ü .-/T, rt '.'tt - . rrÜM 

NLQ401 

14,80 

Star NL/LC10 

24,80 

DMP-Drucker 

19,80 

LQ-Drucker 

29,80 

Joyce-Drucker 

24,80 

PCW9512-Dr. 

19,80 

Competit. Pro 

39,80 

... durchsichtig 

49,80 

Ouickshotll 

19,80 

Schneider 

39,- 


Verschiedenes 


Druckerkabel CPC 39,- 
MonHorverianger. 29,50 
Bildschirmfilter 59,- 


200 Endio6ecitet. 16,-^ 


3"-Disketten (10er Pack) 


... MAXELL CF2 ID 89,~ 
...Noname ID 69,- 

- CF2 DD _ 148,- 


Public Domain 

Software 


CPC ♦ Joyce 


Über 1000 Interessante 
PD-Prg. Fordern Sie bitte 
schriftlich unsere Liste an. 
Jede Diskette 20,— 

PD-Disk. 1-19 mit 
dtsch. Handb. (Kotulla): 
JRT-Pascal (1) • ZÖO-Enlw. 
(2) • Small C (4) ■ Forth-83 
(5) • CPC ArbeHsb. (7) ■ 
Cave Adventure (8) • Biz- 
Baslc (10) • Basic E- Comp. 
(11)* Dalerverwalung (14) 

• Wordstar Utilities (15) *C 
Interprete- (17)- Totekom 
munikation MEX(t9j* 

Llete entotdem I 

Jede Diskette 30,- 


MS-DOS 


Uber 700 Disketten 1 Liste 
anfordern. Bitte schriftlich 1 

Jede Diskette 8,- 


f Alle AMSTRAD Typen 

Auszug davon: 

CPC 464 grün 
CPC 6128 grün 
Joyce (8256) 

PCW9512 
PC 1512 MD/SD 
PC 1640 MD/SD 
Portable-PC 512 
PC2086SD12MD 
PC2286DD12MD 

AMSTRAD- Drucker: 

LQ 3500 899,- 

LO 5000 1.399,- DMP 3160 

VPMP2160 499,- DMP 4000 



Alle Schneider-Typen^ 

Die absoluten Renner: 
EuroPC: 

... MM12 1698,- 

TowerPC: 

-201 MM 12 2.498,- 


Spiele cpc 


CPC-Spiele zum sagenhaf¬ 
ten Sonderpreis von: 
jede Kassette n ur 19,- 

iede Diskette nur 29,- 

Ltete anfordern !t 


Karl-Heinz Weeske • Potsdamer Ring 10 • 7150 Backnang * 
Telex 724410 weebad • Kreissparkasse Backnang • BLZ 
(60250020)74397 * Postgiro Stgt. 83326-707 • FAX 60077 


4/89 



COMPUTER-ELEKTROniK 

Zahlung per Nachnahme oder Vorauskasso (Ausland per Scheck). 
Versandkostenpauschale (Inland 6,80 DM/Ausland 16,80 DM). 
Infoartforderung nur mit frankiertem A4-Rückumschlag und DM 2 - 

07191/1528-29 od. 60076 
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I Bericht 


AMSTRAD 

- von damals bis heute 


Zahlen, Fakten, Hintergründe 

Den CPC gibt es nun schon seit einem halben Jahrzehnt — ein gar biblisches 
Alter für einen Computer. “But he is still going strong“, er ist immer noch 
stark vertreten, würde der Anglist sagen. Eine riesige Anwender- und Fan¬ 
gemeinde hat sich um diesen Computer gebildet. Deshalb haben wir uns ge¬ 
dacht, es wäre vielleicht einmal ganz interessant, in Form kurzer Flash¬ 
backs einen Blick zurück zu tun. 


“Niemals zuvor in der Geschichte der 
technischen Erfindungen kamen in ei¬ 
nem Bereich in so kurzer Zeit so viele 
Fortschritte und Neuentwicklungen 
heraus, wie in der elektronischen Da¬ 
tenverarbeitung. Es liegt im Wesen die¬ 
ser faszinierenden Technologie be¬ 
gründet, daß eine Neuerung und Er¬ 
kenntnis bereits die weiteren vorberei¬ 
tet und ermöglicht. “ 

(aus dem CPC-Benutzerhandbuch) 

Sommer 1984: 

“Vom Radio zum Computer“ 

Mit der Gründung einer eigenständigen 
Schwesterfirma, der Schneider Com¬ 
puter Division legen die geschäftsfüh¬ 
renden Gesellschafter des HiFi-Gerä- 
te-Herstellers Schneider, Bernhard und 
Albert Schneider, am 01.07.1984 den 
Grundstein einer Partnerschaft mit 
Amstrad ( Allan Malcolm Sugar Tra- 
ding). 

Der Schneider-Computer CPC464 
wird erstmals anläßlich der Messe 
HiFi-Video in Düsseldorf der Öffent¬ 
lichkeit präsentiert und überzeugt vor 
allem durch sein attraktives Preis- 
Leistungsverhällnis (mit Grünmonitor 
ca. 900,- DM, mit Farbmonitor ca. 
1400,— DM), ein für die damalige 
Lage geradezu sagenhafter Einstiegs¬ 
preis. Das Komplettsystem, bestehend 
aus Tastatur, integriertem Kassetten¬ 
laufwerk und wahlweise Färb- bzw. 
Grünmonitor, ist in dieser Form neu 
auf dem Computersektor. Darüber hin¬ 
aus ist der CPC 464 mit einem lei¬ 
stungsfähigen Basic-Interpreter (größ¬ 
tenteils MSX- bzw. Microsoft-Ba- 
sic-kompatibel), dem Locomotive Ba¬ 
sic 1.0 ausgestattet. Schon im Jahr 
1984 werden laut Bernhard Schneider 


40.000 Amstrad/Schneider CPC 464 
verkauft. Die vom Computermagazin 
CHIP herausgegebene Bestsellerliste, 
die im allgemeinen als sehr zuverlässig 
angesehen wird, führt den CPC464 be¬ 
reits im November 1984 auf dem zwei¬ 
ten Platz der in der BRD verkauften 
Homecomputer. 

Erste Peripherie 

Das 3 “-Diskettenlaufwerk DDI-1 
(bzw. das Zweitlaufwerk FD-1) wird 
nach schleppenden Anfängen endlich 
ausgeliefert. Es erreicht die traumhafte 
Übertragungsrate von 250 kBaud und 
eine Speicherkapazität von 360 kB. 
Der steckbare Interface-Controller 
beinhaltet das Betriebssystem Ams- 
DOS (Amstrad Disk öperating Sy¬ 
stem) für die Zusammenarbeit mit dem 
Basic-Interpreter. Darüber hinaus wird 
das Betriebssystem CP/M 2.2 mit der 
Programmiersprache Dr. LOGO (1984 
zur “Software des Jahres“ gekürt) von 
Digital Research ausgeliefert. Dem 


\ 







CPC-Anwender eröffnet sich eine neue 
Welt. Werbeslogan der Firma Schnei¬ 
der: “...jetzt floppste aus!“ Etwa zur 
gleichen Zeit kommt der grafikfähige 
9-Nadel-Matrix-Drucker NLQ 401 auf 
den Markt. Der Zubehörmarkt wächst 
schnell und unaufhörlich. 

März 1985: 

die Geburt von PC International 

Mit der Zeitschrift “CPC Schneider In¬ 
ternational“ liegt die erste unabhängige 
Publikation vor, die praktische Tips, 
Arbeitshilfen und Kenntnisse vermit¬ 
telt. Die ersten Reaktionen sind über¬ 
wältigend. 

Juni 1985: 

Der 464 bekommt 
ein Brüderchen 

Auf der Internationalen Computer¬ 
show in Köln, die vom 13. bis 16. Juni 
1985 stattfindet, stellt Schneider den 
Amstrad-Neuling CPC 664 (“eine 
Klasse für sich“) vor. Er ist mit dem 
CPC 464 weitgehend identisch. Das 
eingebaute Kassettenlaufwerk ist durch 
eine DDI-Floppy ersetzt worden, das 


Abb. 1: Alan Sugar — 
der Chef von Amstrad 
sorgte für sehr viel fri¬ 
schen Wind in der 
Computerbranche 
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Basic wurde um einige neue Befehle 
zum Locomotive Basic 1.1 erweitert. 
Am Stand der Firma Schneider wird 
auch ein steckbares Btx-Modul für die 
CPC-Computer vorgestellt. 

Im August 1985 gibt Fred Köster, Lei¬ 
ter der Schneider Computer Division, 
anläßlich einer Pressekonferenz be¬ 
kannt, daß bereits 100.000 CPC 464 
und etwa 15.000 CPC 664 verkauft 
worden sind. 

Spätsommer 1985: 

CPC 6128 - das “Flagschiff“ 

Amstrad stellt auf der CES in Chicago 
seinen neuen Computer CPC 6128 vor. 
Er wird auch vom deutschen Distribu¬ 
tor Schneider auf der Internationalen 
Funkausstellung in Berlin der breiten 
Öffentlichkeit präsentiert; ab Mitte 
September 1985 ist er im Handel. Im 
Prinzip handelt es sich bei dem CPC 


6128 um einen völlig neu gestylten 
CPC 664 mit doppelter Speicherkapa¬ 
zität und dem erweiterten Betriebssy¬ 
stem CP/M plus. In dem ansprechen¬ 
den Gehäuse verbirgt sich ein lei¬ 
stungsfähiger Z80-Prozessor, der in 
vielen Punkten eine echte Alternative 
zu den wesentlich teureren IBM-kom- 
patiblen PCs ist. Der CPC 6128 ist ein 
“echter Homecomputer der neuen Ge¬ 
neration“, der “auch für kleine Betrie¬ 
be interessant“ ist (HC 11/85). 

Das Textverarbeitungssystem 
JOYCE PCW 

Eine weitere Überraschung präsentiert 
Schneider mit dem Joyce, der mit den 
CPCs allerdings nur noch sehr wenig 
gemeinsam hat (Z80-Prozessor, Be¬ 
triebssystem CP/M, 3“-Diskette). Der 
Computer ist dank 256 kB RAM, ei¬ 
nem hochauflösenden Monochrom- 



Abb. 2: Mit ihnen wurde die Heimcomputerszene belebt die CPCs. Oie ersten Computer mit einem 
ausgefeilten Basic und der entsprechenden Peiipherie 


Monitor mit 90 Zeichen pro Zeile und 
einem mitgelieferten NLQ-Matrix- 
drucker als Schreibsystem konzipiert 
und wird als “die Wende“ in Deutsch¬ 
lands Büros propagiert. 

Mit dem DMP 2000 kommt im Früh¬ 
jahr 1986 ein Drucker in den Handel, 
der im Gegensatz zum Vorgänger NLQ 
401 nun endlich schnelle Ausdrucke er¬ 
möglicht. Unter dem recht ansprechen¬ 
den mattschwarzen Gehäuse mit der 
Aufschrift Schneider verbirgt sich 
übrigens ein Ritemann C -I-. 

1986: Jahr der Prämierungen 

Der Firmenboß von Amstrad, Alan M. 
Sugar, wird in England zum “Busi¬ 
nessman des Jahres 1985“ gewählt. 

Die Computerzeitschriften CHIP und 
HC wählen den Schneider CPC in der 
Kategorie Homecomputer zum Com¬ 
puter des Jahres 1985. Die Stiftung 
Warentest verkündet in ihrem “test“- 
Heft 1/86 ihr Urteil zum CPC464: 
“gut“. 

Die CPC International-Leser haben die 
Software des Jahres 1985 gewählt. In 
Heft 4/86 werden die Sieger vorge¬ 
stellt: ’Sorcery’,’The way of the explo- 
ding Fist’ und ’Wintergames’ bei den 
Spielen, in der Sparte Adventures The 
Hobbit', 'Gremlins' und 'Hacker’ und 
bei den Anwendungen 'Turbo Pascal 
3.0’, 'Wordstar' und 'Star Writer'. 

Im Sommer 1986 wird aus marktstrate¬ 
gischen Gründen die Produktion der 
CPC 664-Computer eingestellt. 

August 1986: Mit einer Gesamtauflage 
von 90.000 Exemplaren pro Monat ist 
CPC International mittlerweile die auf¬ 
lagenstärkste CPC-Fachzeitschrift. 
Zum Vergleich: die Zeitschrift Com¬ 
puting with the Amstrad (“the world's 
biggest independent Computer magazi- 
ne for Amstrad Computers“) hat eine 
Auflage von 70.000. 
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Abb.3: Sie sollten die Büroräume erobern und die »Wende« einleiten 


Abb. 4: Sie sorgten Jur bürore in der Computerw elt - die PCs 1512 und 
1640. Durch ihre Preise wurden sie auch fiir Einsteiger attraktiv 


Herbst 1986: 

Vorstoß in den Profi-Bereich 

Nach der Präsentation der CPC-Home- 
computer und des Textsystems JOYCE 
verstoßen Amstrad und Schneider ge¬ 
gen sämtliche Gepflogenheiten der 
Computerbranche: der PC 1512/1640, 
IBM-kompatibel und rundum gut aus¬ 
gestattet, sorgt rechtzeitig zum Weih¬ 
nachtsgeschäft mit einem Preis von un¬ 
ter 2000, — DM in der Standardversion 
für einige Verwirrung auf dem Markt 
der ehrwürdigen PC-Hersteller. 

Die beiden Hersteller zeigen mit dieser 
Aktion ganz klar die Richtung ihrer zu¬ 
künftigen Firmenpolitik. Alan M. Su- 
gar zu seinem jüngsten Kind: “Mit die¬ 
sem Computer wird der Markt für PCs 
nie wieder derselbe sein!“ 

Die Zeitschrift “CPC Schneider Inter¬ 
national“ nennt sich in “PC Schneider 
International“ mit dem Untertitel 
“CPC, Joyce, PC 1512“ um. Die 
CPCs werden jedoch auch in Zukunft 
in dieser Zeitschrift die Nummer 1 
bleiben. 

Während der CeBit 1987 verkündet 
Fred Köster in einem Interview mit PC 
International die neuesten Verkaufs¬ 
zahlen: 

250.000 CPCs (monatlich noch etwa 
10.000 Neuverkäufe) 

70.000 PC 1512 (bis Jahresende sollen 
100.000 erreicht werden) 

60.000 JOYCE PC Ws 


Herbst 1987: 

Amstrad an erster Stelle 

Zwei Marktforschungsberichte unter¬ 
streichen den Erfolg von Amstrad: Die 
Firma ist heute der größte Computer¬ 
hersteller in Europa. Ihr Anteil am 
Heimcomputermarkt beträgt etwa 50 
Prozent (mit den Computern der inzwi¬ 
schen aufgekauften Firma Sinclair). 

Sie hat im letzten Jahr (1986) 350.000 
PC Ws und 160.000 PCs in Europa ver¬ 
kauft. Und das, obwohl der PC erst 
drei Monate erhältlich war! Ob das nur 
an der verstärkten Werbung in den 
Massenmedien liegt? 


Frühjahr 1988: 

Amstrad erobert Deutschland 

Amstrad — die bisher Niederlassungen 
in Frankreich, Spanien, Indien, den 
USA und Großbritannien gehabt haben 
— kommen nach Deutschland, um 
“den Vertrieb in die eigene Hand zu 
nehmen“, wie Helmut Jost, Amstrad- 
Geschäftsführer Deutschland, erklärt. 
Die ehemaligen Partner Amstrad und 
Schneider werden nun zu Konkurren¬ 
ten. 

Auf der CeBit 1988 zeigt Amstrad zum 
ersten Mal in Eigenregie Neuheiten, 

Fortsetzung auf Seite 20 


Abb. 5: AuJ der Hannover CeBit Messe I9HN erstmals vorgestellt — der portable PPC 512 und der 
neue PCW 9512 mit Typenraddrucker. Leider fehlt immer noch einer: der PPC 640. Sein Modem wird 
(leider immer noch) von der Post beanstandet. 
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Das erste Jahr 


Ein Jahr AMSTRAD Deutschland - 
Interview mit Helmut Jost 

Ein Jahr ist vergangen, seit die Firma AMSTRAD ihre Zelte 
auch in der Bundesrepublik Deutschland, genauer gesagt in 
Neu- Isenburg bei Frankfurt, aufgeschlagen hat. Grundgenug 
für die Redaktion der PC AMSTRAD International, einmal den 
Geschäftsführer Helmut Jost über das vergangene Jahr im 
Hinblick auf die Produktreihe und die Firmenpolitik zu 
befragen. 


Nach der Trennung von der Firma 
Schneider im Mai des letzten Jahres 
konnte AMSTRAD nun auch in der Bun¬ 
desrepublik präsent werden und seine 
Computer unter eigenem Namen vertrei¬ 
ben. Inzwischen ist AMSTRAD mit einer 
neuen PC- Palette auf dem Markt vertre¬ 
ten, die durch ihre Ausstattung und den 
Preis für Akzente im hart umkämpften 
Computermarkt sorgen sollen. Wie sich 
die Situation des vergangenen Jahres für 
AMSTRAD darstellt, können Sie in die¬ 
sem Interview lesen, das die Redakteure 
der PC International mit Helmut Jost, 
dem Geschäftsführer von AMSTRAD 
Deutschland, in Neu-Isenburg führten. 

|| PC International: 

Ein Jahr gibt es die Firma AMSTRAD nun 
in Deutschland. Was können Sie uns über 
dieses vergangene erste Jahr abschlie¬ 
ßend sagen? 

mr Jost: 

Anfang Januar 1988 haben wir mit drei 
Mitarbeitern in unserem Gebäude in Neu- 
Isenburg begonnen. Das höchste Ziel für 
uns war die CeBit in Hannover, in der wir 
uns das erste Mal als Computerhersteller 
vorstellen und auch gleich Signale für un¬ 
sere Computer setzen wollten. 

0 PC International: 

Haben Sie Ihr gesetztes Ziel in der kurzen 
Zeit erreichen können? 

m- Jost: 

Dieses Ziel haben wir erreicht; bereits zur 
CeBit bestand die AMSTRAD-Mann- 
schaft aus circa 20 Mitarbeitern. Wir konn¬ 
ten erste Akzente im Werbebereich set¬ 
zen, um unseren Namen in der Öffentlich¬ 
keit an die Oberfläche zu bringen. 


fl PC International: 

Gab es noch weitere Aktionen in bezug 
auf Werbung? 

m- Jost: 

Ja, wir beauftragten eine Werbeagentur, 
die mit ungewöhnlichen Werbeaussagen 
für Wirbel sorgte. 

Das Motto "AM¬ 
STRAD sagt..." er¬ 
zeugte reges Inter¬ 
esse, nicht nur bei 
den Besuchern, son¬ 
dern auch zum Teil 
bei der Tagespres¬ 
se. Dies hat dazu ge¬ 
führt, daß wir sehr 
guten Zuspruch auf 
der Messe hatten 
und daß die Kund¬ 
schaft unseres ehe¬ 
maligen Distribu¬ 
tors in uns ihren An¬ 
sprechpartner wie¬ 
derfinden konnte. 

Wir konnten also 
mit einem sehr gu¬ 
ten Polster im 
Rücken starten. 

0 PC International: 

Dann hat sich also auch die Trennung 
von der Firma Schneider nicht negativ 
ausgewirkt? 

mr Jost: 

Nein, zumindest nicht auf AMSTRAD. Im 
Gegenteil, viele Computerbesitzer der 
AMSTRAD-Geräte waren froh, daß der 
Hersteller endlich selbst präsent ist, und 
damit der Verkauf, Service usw. nicht 
mehr über eine Zwischenstation lief. Die¬ 
se neue Situation wurde insgesamt sehr 
positiv bewertet. 


Nach Hannover war unser nächstes Ziel, 
sobald wie möglich mit der Auslieferung 
unserer Produkte zu beginnen, was uns 
schließlich auch gelang. Ende April, An¬ 
fang Mai 1988 begann diese Auslieferung. 
Und heute, nach diesem Jahr, behaupte 
ich, und die Statistiken belegen dies, daß 
die Firma AMSTRAD bei den professio¬ 
nellen PCs in der Spitzengruppe liegt. 

hl PC International: 

Wie groß sind die verkauften Stückzah¬ 
len der einzelnen Computer? 

m- Jost 

Im gesamten MS-DOS-Bereich, dazu ge¬ 
hört der PC 1512, 1640 und der PPC 512, 
wurden über 35.000 Stück verkauft. Bei 
dem neuen PC 2086 kann man sagen, daß 


in einem relativ kurzen Zeitraum, Novem¬ 
ber bis Januar, über 3000 Geräte verkauft 
worden sind. Bei den PCW und CPC sind 
die Verkaufszahlen etwas zurückgegan¬ 
gen, was dem Markttrend für diese Pro¬ 
dukte entspricht. 

Ihl PC International: 

Da wir gerade vom PPC 512 sprechen, 
wie groß ist denn der Erfolg dieses Com¬ 
puters? 

m- Jost: 

Die Nachfrage zum portablen PPC 512 
unterliegt gewissen Schwankungen. Es 
gibt hier einmal den privaten Anwender, 
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der zu gewissen Zeiten, zum Beispiel zu 
Weihnachten, schwerpunktmäßig kauft. 
Darüber, hinaus gibt es die professionel¬ 
len Anwender, deren Kaufverhalten nicht 
saisonbedingt ist. Dann gibt es noch die 
Großkunden, die teilweise bis zu zwei-, 
dreihundert Computer bestellen. Dies ist 
die Käuferschicht, die wir in Zukunft ver¬ 
stärkt angehen möchten. 

H PC International: 

Sie wollen also verstärkt bei Firmen mit 
Ihrer PC-Palette werben, also auch mit 
dem PPC? 

mr Jost: 

Dazu muß man sich vor Augen halten, 
daß ein Portable eigentlich eine Kompro¬ 
mißlösung ist. Man kann nie von einem 
portablen Computer den Komfort verlan¬ 
gen, den ein professionelles Tischgerät 
besitzt. 

Unsere Devise nun war und ist es, einen 
portablen Computer so zu gestalten, daß 
er 

1. ) eine dem Benutzer vertraute Tastatur 
hat, bei der der Benutzer sich nicht mehr 
umzugewöhnen braucht, beim PPC also 
eine A 7/ MF2- Tastatur. 

2. ) mit der LCD- Supertwist- Anzeige aus¬ 
gestattet ist. Hier gibt es zwar bessere, 
aber auch teurere Lösungen. Wir sind der 
Meinung, daß der Kunde, wenn er mit 
dem Gerät unterwegs ist, mit unserer Lö¬ 
sung zufrieden ist. Zu Hause kann er pro¬ 
blemlos einen Monitor anschließen und 
besitzt damit ein komfortables und pro¬ 
fessionelles Gerät. 

Ü PC International 

Damit kommen wir auch zum größeren 
Bruder des PPC 512, nämlich dem PPC 
640 und seinem eingebauten Hayes-Mo- 
dem. Diese Geräte-Konfiguration sollte 
schon seit längerem von AMSTRAD aus¬ 
geliefert werden. Damals hatte die deut¬ 
sche Bundespost ihre Einwilligung zum 
Betrieb des eingebauten Modems abge¬ 
lehnt, wie sieht der heutige Stand aus? 

m- Jost 

Wir möchten es als trauriges Kapitel be¬ 
trachten, daß die deutsche Bundespost 
noch zu keiner Entscheidung kommen 
konnte. 

Verhindert wird die Zulassung dadurch, 
daß wir der Post kein eingebautes Modem 
mit einer speziellen, nur für Testzwecke 
angeschlossenen seriellen Schnittstelle 
anbieten können. Sie können sich sicher 
vorstellen, daß so ein Vorhaben nur mit 
viel Zeit und großem Geldaufwand zu rea¬ 
lisieren ist. 

Wir werden uns aber verstärkt bemühen, 
eine FTZ-Zulassung von der deutschen 
Bundespost zu bekommen. 


Ein genauer Termin läßt sich auf Grund 
der vorgegebenen Problematik nicht 
nennen. 


9 PC International 

Auf der Orgatechnik wurden zum ersten¬ 
mal die großen PCs aus der 20er Serie 
vorgestellt. Ist jetzt damit zu rechnen, 
daß die PCs 1512 und 1640, die ja als ty¬ 
pische Einsteigergeräte gelten, von den 
20ern abgelöst werden? 


mr Jost 

Nein, diese Geräte sind nach wie vor gro¬ 
ße Zugpferde, insbesondere der PC 1640 
in seiner vollen Ausrüstung. Denn er ist 
mit seinen echten 16 Bit ein außerge¬ 
wöhnliches Produkt, dessen Leistungs¬ 
daten einfach zu wenig bekannt sind. Sei¬ 
ne Überlegenheit anderen Produkten ge¬ 
genüber macht ihn zu einer starken Kon¬ 
kurrenz. Dies gilt auch für Geräte, die in 
einer wesentlich höheren Preisklasse lie¬ 
gen. Deshalb bleibt dieses Gerät als be¬ 
ster Einsteiger-Computer im professio¬ 
nellen Bereich erhalten. 


jjfl PC International 

Die neuen Geräte vom 2086 bis hin zum 
2386 werden alle mit GW-BASIC ausge¬ 
liefert. Ist denn auch geplant, die älteren 
Computer mit dem besseren BASIC aus¬ 
zuliefern? 


m-Jost 

Nein, die Auslieferungen werden weiter¬ 
hin mit BASIC2 erfolgen. Wer GW-BASIC 
zum Einsatz bringen möchte, und das ist 
oft bei Lieferungen im Schul- oder Aus¬ 
bildungsbereich der Fall, bekommt GW- 
BASIC von uns nachgeliefert. Der private 
Anwender vbm PC 1512 und PC 1640 
muß sich allerdings die Version auf dem 
freien Markt beschaffen. 


9 PC International 

Da der Homecomputermarkt mit seinen 
üblichen 64-KByte-Computern übersät¬ 
tigt ist, wird es unsere Leser von der PC 
International interessieren, was mit ih¬ 
rem CPC oder PCW (512 KB) geschehen 
wird. Muß der Anwender jetzt damit 
rechnen, daß sein Computer nicht mehr 
produziert wird und daß keine Ersatzteile 
mehr verfügbar sind? 


m-Jost 

Der CPC oder PCW wird weiterhin produ¬ 
ziert und auch repariert, dafür sorgt die 
Anders Serviceorganisation in der gan¬ 
zen Bundesrepublik. Weiterhin erhält der 
Kunde, der einen CPC oder PCW 
wünscht, das verlangte Gerät, wobei die 
alte 8xxx-PCW-Serie auslaufen und die 
PCW-9xxx-Serie beibehalten wird. Denn 


wenn Sie überlegen, wie der Schreibma¬ 
schinenmarkt aussieht, werden Sie fest¬ 
stellen daß eine gute Schreibmaschine 
oft mehr kostet, als ein Text-Schreib-Sy- 
stem, wie es der PCW ist. Aber mit einem 
PCW können Sie mehr machen als nur 
Texte schreiben und ausdrucken. 

|H PC International 

Da Sie gerade das Händlernetz anspre¬ 
chen, würden wir gerne wissen, ob auch 
alle Händler kompetent sind, Reparatu¬ 
ren durchzuführen? Oder werden die Ge¬ 
räte zu einer Sammelstelle gebracht, wo 
sie auch repariert werden? 

mr Jost 

Wir können uns da ganz sicher sein, da 
alle Händler von uns in mehreren Kursen 
geschult werden. Geräte, die nicht beim 
Fachhändler repariert werden können, 
werden bei ANDERS-Computer-Service 
instandgesetzt. 

PC International 

Will AMSTRAD mit der Auslieferung der 
neuen Geräte auch eigene Software an¬ 
bieten, oder wird AMSTRAD wieder auf 
Fremdanbieter zurückgreifen? 

m-Jost 

Nun, außer der bekannten Software, 
Betriebssystemen und grafischen Benut¬ 
zeroberflächen werden wir keine weitere 
Software anbieten. Aber wir kooperieren 
mit Software-Firmen, die für unsere 
Rechner Software produzieren, damit 
das Optimale aus den PCs herausgeholt 
werden kann. 

Neue Computer 
von AMSTRAD? 

H PC International 

Im Moment ist der 2386 der letzte techni¬ 
sche Stand der Dinge. Denkt AMSTRAD 
an einen neuen Rechner, vielleicht an ei¬ 
nen 2486 oder gar an einen 68000er? 

mr Jost 

Wir planen zwar einige neue Dinge, aber 
einen neuen Rechner möchten wir dieses 
Jahr nicht mehr herausbringen. Die neu¬ 
en Geräte, die Mitte Februar ausgeliefert 
werden, müssen sich erst einmal im 
Computermarkt durchsetzen und des¬ 
halb gibt es z.B. für einen 2486 keinen 
Grund. 

9 PC International 

Also bleibt es auch in Zukunft dabei, daß 
AMSTRAD die Hardware liefert und Ge¬ 
schäftspartner für die Software zustän¬ 
dig sind? 
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mr Jost: 

So ist es. Speziell auch im Hinblick auf die 
PC-2000er-Serie gilt es, sehr eng mit 
Software-Herstellern zusammenzuarbei¬ 
ten, um die Geräte in den entsprechen¬ 
den Märkten zu plazieren und vertikale 
Zielgruppen zu erreichen. Solche Geräte 
können Sie heute nicht mehr einfach 
über die Theke schieben, denn das sind 
Computer für den professionellen Be¬ 
reich. 

fl PC International: 

Also auch nicht die Neuerscheinungen, 
die in England vorgestellt wurden, wie 
der Sinclair PC 200? 

mr Jost: 

Der Sinclair PC 200 wird vorerst in 
Deutschland nicht erscheinen. 

9 PC International: 

Inwieweit hat denn AMSTRAD Deutsch¬ 
land Einfluß auf neue Produkte? 

mr Jost: 

Generell läuft es so ab, daß wir die ge¬ 
samte Palette des Unternehmens zum 
Vermarkten angeboten bekommen, wir 
suchen uns die Geräte aus, die eine gute 
Chance in Deutschland haben und sich so 
vermarkten lassen, daß es für den Kon¬ 
zern etwas bringt. Wirsehen Produkte re¬ 
lativ emotionslos. Solange sie Geld brin¬ 
gen, werden sie vermarktet, wenn sie 
kein Geld bringen, werden sie nicht als 
'totes' Produkt mitgezogen. Ein Mitspra¬ 
cherecht haben wir insofern, daß wir bei 
regelmäßigen Treffen unsere Wünsche 
mit einbringen können. 

M PC International: 

Nächstes Thema. Um einen Computer zu 
kaufen, kann sich der Kunde wohl nicht 
direkt an AMSTRAD wenden, hier kom¬ 
men also die Händler ins Spiel. Wie groß 
ist das Händlernetz der Firma AMSTRAD 
jetzt? 

Jost: 

Das Händlernetz umfaßt zur Zeit ca. 400 
Händler mit bestimmten Schwerpunk¬ 
ten: Bei manchen Händlern liegt der 
Schwerpunkt auf den 2000ern Geräten, 
andere sind mit der gesamten Produkt¬ 
palette vertreten. 

fl PC International: 

Also eine Aufsplittung wie in Großbritan¬ 
nien in einen Teil, der den großen Markt 
der Computerkäufer bedient, also Privat¬ 
kunden, und in einen zweiten Teil, der 
vornehmlich im Business-Bereich tätig 
ist und auch Firmen und Betriebe be¬ 
dient? 

mr Jost: 

Richtig, es gibt im Markt Händlerstruktu¬ 
ren, die wie folgt aussehen: Der eine spe¬ 
zialisiert sich auf drei, vier Pakete, die er 


in seinem Umfeld und in speziellen Ni¬ 
schen vermarktet. Andere verkaufen eine 
Soft- und Hardware-Palette aus Stan¬ 
dard-Paketen. Je nach diesen Vorgaben 
sind auch die Händler ausgestattet. 

fl PC International: 

Soll das Händlernetz erweitert werden? 

mr Jost: 

Quantitativ nicht, qualitativ ja. 

fl PC International: 

Werden die Fachhändler, die vornehm¬ 
lich den Business-Bereich bestreiten, von 
AMSTRAD geschult? 

m- Jost: 

Ja, wir haben in unserer Support- Abtei¬ 
lung eine Trainingsabteilung integriert, in 
der wir verschiedene Trainingskurse für 
Händler anbieten. In erster Linie bezieht 
sich dieses Training auf die technische 
Seite, damit die Händler die Computer im 
Bedarfsfall reparieren können, und auf 
sogenannte Handling- Kurse, die sich auf 
die Funktion, die Bedienung und auf den 
richtigen Verkauf beziehen. Dies sind die 
zwei Hauptrichtungen, darüber hinaus 
finden Kurse in MS-DOS und LocoScript 
statt, an denen ein großes Interesse be¬ 
steht. Auch Endkunden können an diesen 
Kursen teilnehmen. 

fl PC International: 

Sie sprachen gerade von der Reparatur 
der Computer durch Fachhändler. Nun ist 
AMSTRAD ja eine Partnerschaft mit der 
ANDERS Serviceorganisation über die 
Reparatur von AMSTRAD Computern 
eingegangen. Welche Rolle spielt nun die 
Firma ANDERS: ist sie der direkte An¬ 
sprechpartner im Reparaturfall oder der 
Beschaffer von Ersatzteilen? 

•r Jost: 

Die Partnerschaft mit der ANDERS Service- 
organisation ist ein Engagement unserer¬ 
seits gewesen, um der Marktsituation 
Rechnung zu tragen. Es gibt heute mo¬ 
derne Händler, die sich sagen: "Ich möch¬ 
te keine Werkstatt mehr haben, weil ich 
nicht in der Lage bin, diese das ganze 
Jahr über auszulasten." Diese Händler 
beschäftigen dann ein, zwei Techniker, 
die die Geräte auspacken, testen und 
kleinere Fehler selbst beheben. Oder auf 
dem sogenannten 'Board- Level- Tausch' 
die Geräte reparieren können. Diesen 
Händlern, auch denen mit eigener Werk¬ 
statt, die überlastet sind, müssen wir ein 
System anbieten. Dieses Konzept be¬ 
sagt, daß wir generell jeden Händler den 
ANDERS-Service anbieten, das Gerät zu 
einem festen Reparatursatz repariert zu 
bekommen. Und dieser Reparaturpreis 
ist zusammen mit der Firma ANDERS 
festgelegt worden, um Problemen bei 
den Reparaturpreisen, wie z.B. zu hohen 


Stunden- oder Ersatzteilpreisen aus dem 
Wege zu gehen. Diese Reparatur-Preisli¬ 
sten publizieren wir übrigens auch zum 
Endkunden hin. Das bedeutet, auch der 
Endkunde hat nach Ablauf der Garantie¬ 
zeit die Möglichkeit, seinen Computer bei 
ANDERS- Service zu einem festen Preis 
reparieren zu lassen. 

fl PC International: 

Der Hauptgrund für die Partnerschaft mit 
ANDERS war also, um eine direkte Repa¬ 
raturmöglichkeit ohne Umwege über di¬ 
verse Reparaturstellen durch Fachhänd¬ 
ler einzurichten? 

mr Jost: 

Richtig, wir kontrollieren im Prinzip die 
Preise der Reparaturen, was sich nur po¬ 
sitiv für den Kunden auswirken kann. 

fl PC International: 

AMSTRAD verfügt ja auch über eine Hot¬ 
line, hat sich diese bewährt? 

mr Jost: 

Die hat sich selbstverständlich bewährt, 
die Anfragen bestehen mehrheitlich aus 
technischen Anfragen von Kunden, die 
Anlaufschwierigkeiten haben, aber auch 
zusätzliche Fragen zu geräteinternen Pro¬ 
blemen von Händlern. 

fl PC International: 

Wird man demnächst auch AMSTRAD- 
Computer in Kauf- oder Versandhäusern 
Sonderaktionen wie mit dem Techno- 
Center finden? 

Jost: 

Nein, hierbei sollte man beachten, daß 
sich in gewissen Absatzkanälen manche 
Produkte nicht vermarkten lassen, dies 
hängt aber stark mit dem Kaufverhalten 
des Endkunden zusammen. Für Versen¬ 
der dürfte es sehr schwer werden, einen 
386'er Computer abzusetzen. 

Das Techno-Center war ein Erfolg, wir 
konnten im Weihnachtsgeschäft eine 
große Stückzahl verkaufen. 

fl PC International: 

AMSTRAD legt also mehr Wert auf fach¬ 
liche Beratung beim Computerkauf? 

m- Jost: 

Ja. Je nachdem, wie bekannt ein Produkt 
auf dem Markt ist, desto mehr kann es 
angeboten werden, allerdings lassen sich 
in den Flächenmärkten Produkte über be¬ 
stimmte Preisgrenzen nicht vermarkten. 

fl PC International 

Wir danken Ihnen für das Gespräch und 
wünschen weiterhin guten Erfolg. 


(jb/cd) 
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darunter das neue Textsystem PCW 
9512, welches nicht nur über ein PC- 
ähnliches Aussehen, sondern auch im 
Gegensatz zu den älteren PCW- 
(Joyce-)Modellen über einen Typen- 
raddrucker verfügt. Außerdem wird 
der neue portable PPC 512 vorgestellt, 
mit vollständiger AT/MF2-Tastatur 
und eingebauten 3,5“-Laufwerken, der 
netzunabhängig an jeder beliebigen 
Stelle eingesetzt werden kann. 

Erstaunlich ist der Preis: Mit einem 
Laufwerk soll er knapp 1600,— DM, 
mit zwei Laufwerken knapp 2000,— 
DM kosten. Als weiter führendes Gerät 
soll es den PPC 640 mit eingebautem 
Modem geben, jedoch gibt es Schwie¬ 
rigkeiten mit der Zulassung durch die 
Bundespost, die sich nicht mit Geräten 
anfreunden kann, die dem deutschen 
Fernmeldegesetz (das Reinheitsgebot 
für Telefone) entgegentreten. 

Herbst 1988: 

Die Überraschung 

ist gelungen 

Im Spätsommer des Jahres präsentiert 
Amstrad wieder eine Überraschung auf 
dem heißumkämpften PC-Markt, und 
diesmal schlägt die Nachricht wieder 
wie eine Bombe ein: Drei neue Compu¬ 
ter mit standardmäßiger VGA-Grafik 
und neuen 3,5“-Laufwerken werden 
auf einer Pressekonferenz in England 
der Fachpresse vorgestellt. 'Drei neue 
Computer’ hat auch eine Bedeutung für 
die künftigen Kunden von Amstrad: 
Außer einem PC/XT-kompatiblen, mit 
8086-Prozessor ausgerüstetem Gerät 
mit der Bezeichnung PC 2086, erschei¬ 
nen noch AT-Computer mit 80286- 
(PC2286) und sogar mit 80386-Pro- 
zessoren (PC2386). Für offene Mün¬ 
der sorgt auch noch die Tatsache, daß 
erstmals Monitor und Zentraleinheit 
voneinander unabhängig eingesetzt 
werden können, die Betriebsspannung 
für den Computer also nicht mehr auf 
der Monitorplatine erzeugt wird. Die 
Monitorc und Computer sind in den 
verschiedensten Ausbaustufen in un¬ 
terschiedlichen Preislagen zu erhalten. 

Amstrad richtet in der PC International 
die AMS-Line, einen direkten Draht zu 
den Anwendern ein. Der PPC 512 wird 
nun auch mit eingebauter Festplatte 
ausgeliefert, damit ist der 'Kleine' 


ganz schön groß geworden. Der PPC 
640 liegt immer noch in der Kuinmer- 
cckc, Spruch des Tages von der Bun¬ 
despost: “Du sollst kein Modem neben 
meinem haben!“ Vernetzungsfreunde 
können sieh über das Amstrad-Netz- 
werk freuen, jetzt sind die PCs auch 
untereinander ansprechbar. 

Weihnachten 1988: 

Das Techno-Center erobert 
den Gabentisch 

Der CPC 464 erlebt noch einmal einen 
zweiten Frühling: Zusammen mit 
Fernsehtuner, Radiowecker, Joystick, 
Farbmonitor, Software und Computer¬ 
tisch bricht er mit einem Preis von 
999, - DM in die Weihnachtszeit ein. 

Amstrad - what’s goin’ on? 

Zu den Zukunftsaussichten der CPCs 
äußert sich Amstrads Geschäftsführer 
Jost sehr deutlich: “Der Markt für die 
CPCs ist rückläufig, was dem Markt- 
trend im Computerbereich entspricht. 
Solange jedoch eine Nachfrage besteht, 
solange werden die CPCs bestehen 
bleiben.“ 

Die Zukunft wird den PCs gehören, wo 
früher die CPC auf dem Tisch standen, 
werden die PCs Ihren Platz Finden, wo 
die PCs 1512/1640 ein Heim hatten. 



Abb. 6: Schon wieder eine Revolution! Dieser 
Stoßseufzer wird wohl so manchem Computer¬ 
hersteller nach der Vorstellung dieser neuen 
PCs über die Lippen gekommen sein. Standard¬ 
mäßig VGA-Grafik bieten sie — die PCs 
2086/2286/2386. Was will man (Frau) mehr? 


werden sich die PCs 2086/2286 breit¬ 
machen und die PC 2386er werden 
wohl den Business-Bereich erobern, 
wie es von Amstrad erhofft und erwar¬ 
tet wird. Und was weiter kommen 
wird? Wer weiß, lassen wir uns überra¬ 
schen. 

(Eckehard Röscheisen/jb) 
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Der CPC im Flugverkehr 

Einsatz des Amstrad-Rechners als Autopilot 

Nachdem die europäische Luftfahrtbehörde einige Ausfälle wegen technischer 
Mängel bei ihren Flugzeugen registriert hatte, forderte die Gesellschaft zur För¬ 
derung von Computeranlagen in freifliegenden Objekten (GeFöCoFo) den ver¬ 
stärkten Einsatz von EDV-Anlagen in Flugzeugen. Dies hat sich der Flugzeug¬ 
hersteller BOIING zu Herzen genommen und ein großes Kontingent CPC 464 
mit Kassettenlaufwerk zum Einbau als Autopilot In sein modernstes Flugzeug B 
08/15 bestellt. Wir wollten Genaueres wissen. 


Die B 08/15 ist ein vierstrahliges Weit¬ 
streckenflugzeug und wird vornehmlich 
auf der Strecke Paderborn — Timbuktu 
eingesetzt. Leider gab es seit der Inbe¬ 
triebnahme einige Unfälle, die teils auf 
menschliches, teils auf Versagen des bis¬ 
her benutzten Autopiloten (die österrei¬ 
chische Marke ‘Nicky Leisa k von der Fir¬ 
ma Frank U. Frei wurde dabei benutzt) 
zurückzuführen war. Die Fachpresse 
war eine der Institutionen, die BOIING 
aufgrund der Ausfälle überaus heftig kri¬ 


tisierte (in teils schärfster Form, die vom 
technischen Direktor Titus D. Fckt eben¬ 
falls scharf erwidert wurden. Original¬ 
ton: “Die lügen ja wie gedruckt!“), was 
das Management dazu veranlaßte, sich 
an eine renommierte Computerfirma 
zwecks Kauf neuer Autopiloten zu wen¬ 
den. Diese Ausfälle sollen jetzt mit dem 
Einsatz des CPC 464 ein für alle mal der 
Vergangenheit angehören. Warum aber 
ausgerechnet der CPC? Ingenieur Rocco 
C. Hipdealer erklärt:“ Der Joyce wirkt 


sich durch seinen Grünmonitor negativ 
auf die Psyche des Piloten aus, beim PC 
hatten wir Probleme mit dem Netzteil, 
das sich partout nicht aus dem Monitor 
entfernen lassen wollte“. Der CPC wird 
dabei mit seiner Sieben-Bit-Entronics- 
Schnittstelle (Centronics = 8 Bit/ Entro- 
nics = 7 Bit) direkt an den Steuerantrieb 
der vier Hauptdüsen angeschlossen und 
übernimmt im Bedarfsfall deren Steue¬ 
rung. Die zugehörige Software wird da¬ 
bei mit dem Befehl ‘RUN“autopil.bas“‘ 
von Kassette geladen. Durch eine über¬ 
sichtliche Menüführung, die durch einen 
Joystick ermöglicht wird, können alle 
Steuerungsfunktionen eingestellt wer¬ 
den. Der erste Probeflug wurde fast ein 
Mißerfolg, da die Programmierer 
(Crash-Soft) des Autopilotprogramms ei¬ 
nen CALL &BB18 übersahen, der die 
Steuerung lahmlegte. Weitere Probeflü¬ 
ge brachten nach der Überarbeitung dann 
den gewünschten Erfolg, wenn auch 
durch die lange Ladezeit ein zeitweiliger 
Ausfall der Steuerung stattfand, der die 
Maschine zwischen 2000 und 7000 Fuß 
(je nach Geschwindigkeit) sinken ließ. 
Ein weiteres Manko ist der auf Knopf¬ 
druck aufspringende Kassettendeckcl, 
der auf ihm liegende Gegenstände (Es¬ 
sensteller. Whisky flaschen, etc.) wäh¬ 
rend des Fluges durch die Gegend 
schleudert und eventuell schlafende Be- 
satzungsmitglicder verletzt. 

Doch Hcrman T. Rottel, Chef der Firma 
BOIING, ist zuversichtlich. “Wir wer¬ 
den diese Bugs (Wanzen, die Redaktion) 
auch noch finden“. Einziges Problem sei 
noch die menschliche Besatzung, die den 
CPC während der Autopilotenabschal¬ 
tung für Spielturniere (vornehmlich ‘Ar- 
kanoid 1 ) benutzt, was sich wiederum ne¬ 
gativ auf das Flugverhalten auswirkt. 

Wir wünschen der Firma BOIING jeden¬ 
falls, daß Sie mit ihren Träumen von der 
Eroberung des Luftraumes mittels eines 
starken Basic-Computers keine Bruch¬ 
landung erlebt. 

(Hubert von Trockendock/jb) 



Hobby-tronic 


Zwei Themen — ein Ereignis: 

rxi 


12. Ausstellung für Funk- 
und Hobby-Elektronik 

Die umfassende Marktübersicht für Hobby-Elektroniker 
und Computeranwender, klar gegliedert: 
In der Westfalenhalle 5 das Angebot für CB- un<J Amateur¬ 
funker, Videospieler, DX-er, Radio-, Tonband-, Video- und 
TV-Amateure, für Elektro-Akustik-Bastler und Elektroniker. 

Mit dem Actions-Center und Laborversuchen, 
Experimenten, Demonstrationen und vielen Tips 
In der Westfalenhalle 6 das Superangebot für Computer¬ 
anwender in Hobby, Beruf und Ausbildung. 
Dazu die Mikrocomputer-Beratung und 
die Stände der ComputercTubs. 
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Fraktal Generator 3D 

Apfelmann, Mandelbrot & Co. 

Version: 1.0 (November 1988) 
Entwickler: Matthias Uphoff 
Hersteller: DMV Software 
Vertrieb: DMV-Verlag, 

Esch wege 

Programm: AMS/DOS, BASIC/MC 
Monitor: Farbe/Grün 
Steuerung: Tastatur 
Hardware: CPC 464/664/6128 
Preis: 62,— DM (Kassette) 

72,— DM (3“-Diskette) 


Entstehungsgeschichte 

Können Sie sich noch an unsere belieb¬ 
te Serie “Das Software-Experiment“ 
erinnern? In dieser Artikel reihe be¬ 
schäftigte sich unser freier Mitarbeiter 
Matthias Uphoff mit experimentellen 
und zum Teil höchst verblüffenden 
Programmen zum Thema Mathematik, 
Simulation und künstliche Intelligenz. 
In Folge 1 (PCI-Heft 7/1986) behan¬ 
delte Matthias Uphoff das Thema 
“Komplexe Grafik“. Das Programm 
zum Artikel bestach vor allem durch 
seine Geschwindigkeit und außerge¬ 
wöhnlich gute Benutzerführung mittels 
Pop-Up (“Pop-Away“)-Menüs. 

In Ausgabe 4/1987 fanden die interes¬ 
sierten CPC-Benutzer schließlich ein 


farbenfrohes Apfelmännchenbild mit 
der Bildunterschrift “10 Farben in 
MODE 1 — wie kann das sein?“. 
Meister Uphoff — hobbymäßiger Au¬ 
tor von Programmen wie ConText und 
CopyShop — hat nun ein Programm 
namens “Fraktal Generator 3D“ fertig¬ 
gestellt, das eine Antwort auf diese 
Frage gibt: die Antwort heißt Farbra- 
sterung. Das und viele andere Finessen 
bietet dieser Fraktalgenerator. 

Wer hat Angst 
vorm Apfelmann? 

Einer der interessantesten Bereiche für 
den gestreßten Computeranwender ist 
die Welt der Fraktale, die von dem 
amerikanischen Wissenschaftler Be- 
noit B. Mandelbrot entwickelten For¬ 
meln zum Wachstum kristalliner Sub¬ 
stanzen grafisch sichtbar macht. Dem 
Betrachter tun sich völlig neue Fanta¬ 
sielandschaften aus Fjorden, Grand 
Canyons, Kratern und Felseninseln 
auf. Also nicht nur für den Mathemati¬ 
ker eine interessante Sache. 

Mit dem Fraktal Generator 3D liegt 
nun ein Programm für die Computer 
der CPC-Serie vor, das sich durchaus 
mit professionellen Programmen für 
16-Bit-Computer —das Programm gibt 
es übrigens auch als PC-Version — 
messen kann. Man glaubt kaum, was 
man aus einem CPC herausholen kann. 

“Rechenroutinen 

hart am Rande der Legalität...“ 

Hauptmerkmal des Fraktal Generator 
3D ist die enorme Geschwindigkeit, 
mit der die komplexen Grafiken erstellt 
werden. 

Selbst der Autor war letztendlich über¬ 
rascht, daß das Programm nur 6 Minu¬ 
ten und 30 Sekunden benötigt, um das 


berüchtigte Apfelmännchen als 3D- 
Landschal't auf den Bildschirm zu zau¬ 
bern (Rechentiefe: 30, Blickwinkel ho¬ 
rizontal: 45, vertikal: 40 Grad). Ver¬ 
gleichbare zweidimensionale Apfel¬ 
männchen-Programme auf 8-Bit-Com- 
putern benötigten bisher Zeiten, die 
man in Stunden angeben mußte! 
Matthias Uphoff darf den Anspruch er¬ 
heben, die Innereien des CPCs wie 
kaum ein anderer zu kennen. Er hat mit 
sämtlichen Tricks und Kniffen (illegale 
Z80-Opcodes, sich selbst modifizie¬ 
render Code, Systeminterrupt-Eingrif¬ 
fe etc.) gearbeitet. 

Fraktale ganz flexibel 

Fraktal Generator 3D bietet zur Erzeu¬ 
gung der Grafiken einige Extras, auf 
die wir hier nur kurz eingehen können: 
Das Programm kennt neben den her¬ 
kömmlichen Mandelbrotgrafiken 
(“Apfelmännchen“) auch noch die 
daraus abgeleiteten Grafiken der Julia- 
Menge. Und das Ganze wahlweise 
zwei- oder dreidimensional. 

Durch die Rastermischtechnik stehen 
10 Farbschattierungen bei einer Auflö¬ 
sung von 320x200 Punkten zur Aus¬ 
wahl — ein Novum im Bereich der 
fraktalen Grafik. 

Im Parametermenü können Sie sämtli¬ 
che Systemwerte ändern, die fraktale 
Grafiken beeinflussen. 

So zum Beispiel: 

— Farben und Raster 

— Bildausschnitt und Rechentiefe 

— Blickwinkel und Stufenhöhe von 
3D-Landschaften 

— Julia-Fixpunkt 

Bedienerführung 

Die Bedienung des Programmes er¬ 
folgt durch eine in Deutsch gehaltene 
Desktop-Benutzerführung (Menübal- 
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Bild 3: Ein unendlich tiefer Krater 



Bild 4: Ausschnitte können beliebig vergrößert werden 


ken, Pulldown-Fenster), wie sie zum 
Beispiel von Atari ST her bekannt ist. 
Dadurch ist das Programm fast gänz¬ 
lich gegen Fehleingaben gesichert. Die 
Menü-Steuerung kommt mit wenigen 
Tasten (Cursortasten, ENTER, 
RETURN, ESC und DEL) aus. 

Dank umfangreicher Dateioperationen 
lassen sich Bilder aus dem Fraktal Ge¬ 
nerator 3D mit anderen Grafikpro¬ 
grammen (z.B.: OCP Art Studio, 
CopyShop) nachbearbeiten. 

Besitzer von Computern mit Erweite- 
rungs-RAMs(z.B.: CPC6128) können 
das Mehr an Speicher dazu nutzen, vier 
Bilder parallel im Speicher zu ver¬ 
walten. 

Druckersteuerung 

Die Druckeransteuerung ist der einzige 
Schwachpunkt des Programms. 

Zwar können fraktale Grafiken in den 
Formaten DIN A4 und A5 und wahl¬ 
weise normal oder invers ausgedruckt 
werden (Farben werden durch ver¬ 
schiedene Raster ersetzt), aber es fehlt 
ein Druckeranpassungsmenü, wie es 
vom CopyShop her bekannt ist. Des¬ 
halb bleibt einem in vielen Fällen 
nichts anderes übrig, als die Grafik ab¬ 
zuspeichern und mit einem anderen 
Grafikprogramm auszudrucken, das 
diesen “exotischen“ Drucker unter¬ 
stützt. 

Lieferumfang 

Das Handbuch ist - für deutsche Pro¬ 
gramme eher selten — mit 56 Seiten 
sehr ausführlich und enthält neben den 
üblichen Abschnitten zur Benutzung 
auch ein Kapitel über die mathemati¬ 


schen Grundlagen sowie Angaben über 
Literatur und einige Hinweise für Pro¬ 
grammierer. Eine sehr nützliche Sa¬ 
che, wenn man bedenkt, daß das Pro¬ 
gramm ohne Kopierschutz verkauft 
wird. 

Es versteht sich natürlich von selbst, 
daß sich kopierschutzlose Programme 
nur dann durchsetzen können, wenn 
der Benutzer das Vertrauen nicht miß¬ 
braucht, das in ihn gesetzt wird. 

Neben Programm und Handbuch be¬ 
kommt der Käufer auch noch einige 
Demostrationsbilder, die mit dem 
Fraktal Generator 3D erzeugt wurden. 

Bemerkenswertes 

+ hohe Geschwindigkeit 
+ deutsche Benutzeroberfläche (Pull- 
down-Menüs) 

+ 10 Farbschattierungen im MODE 1 
dank Rastermischung 
+ ausführliches deutsches Handbuch 
+ Kompatibilität zu anderen Grafik- 
Programmen 

+ Nutzung des Erweiterungs-RAM 
(CPC6128) 

Menüstruktur 

— Datei 

— laden 

— speichern 

— löschen 

— Programmende 
-Bild 

— zeichnen 

— löschen 

— wechseln (1/2/3/4) 

— drucken (normal, invers, DIN 
A4/A5) 

-Typ 


— Mandelbrot —Set 
— Julia-Set 

— Parameter 

— Ausschnitt (links, rechts, oben, 
unten) 

— Fixpunkt (x, y) für Julia-Menge 
— Farbtabelle (Pens, Inks, Raster) 
— Rechentiefe (minimal, maximal) 
— Blickwinkel (horizontal, vertikal) 
— Stufenhöhe 

— Parameterinfo (alle obigen An¬ 
gaben auf einen Blick) 

- Frak3D 

— Informationen zum Programm 

Prädikat: sehr zu empfehlen 

Darüber können sich alle CPC-Benut- 
zer wohl einig sein: momentan gibt es 
auf dem Gebiet der fraktalen Grafik 
kein vergleichbares Programm, wel¬ 
ches in dieser Geschwindigkeit solche 
Grafiken erzeugen kann. 


ttutjotfokl Qix5*anung& Do*u Qialik Arbftta Preis/ 
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Der Fraktal Generator 3D setzt ganz 
klar neue Maßstäbe. Nach Mängeln 
mußte ich bei diesem vergeblich su¬ 
chen. Gratulation, Mr. Uphoff! 


(Eckehart Röscheisen/rs) 
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Leader Board 

Hersteller: U.S. Gold 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 30,- DM 

CPC 464 K CPC 664 Kl CPC 6128 H 

Holz oder Eisen 
— das ist hier die Frage! 

Die Zeiten, in denen sich nur vermö¬ 
gende Leute den Besuch eines Golf¬ 
platzes leisten konnten, sind vorbei. 
Während man früher viel Geld dafür 
bezahlen mußte, an einem trüben, kal¬ 
ten und verregneten Tag seine Golfta- 
sche über eine verschlammte Wiese zu 
ziehen, eröffnet Leaderboard die Mög¬ 
lichkeit, diesem exklusiven Hobby 
vom bequemen Sessel aus zu frönen. 
Wer allerdings denkt, daß nur noch di¬ 
verse Knöpfchen gedrückt werden, um 
wie Bernhard Langer den Golfschläger 
zu schwingen, der irrt. Schließlich 
muß der Ball mit großer Präzision ge¬ 
schlagen werden, um das angepeilte 
Ziel auch nur annähernd zu erreichen. 
Schlagkraft und -richtung sind dabei 
genauso ausschlaggebend wie der rich¬ 
tige Spin. Wind und Wetter haben na¬ 
türlich ebenso einen Einfluß auf die an¬ 
gestrebte Flugbahn. Während es dem 
leibhaftigen Golfspieler schon einiges 
an Kondition abverlangt, 18 Löcher 
konzentriert durchzustehen, kann der 
Computergolfer durchaus einen Par- 
cour mit 72 Löchern bewältigen. 

Eines unter Par! 

Haben sich ein bis vier Golfer zusam¬ 
mengefunden, kann die Partie begin¬ 
nen. Nach der Eingabe der Spielerna¬ 
men und der Wahl des Spiele-Levels 
kann der erste Abschlag in Angriff ge¬ 
nommen werden. 

Spätestens an diesem Punkt muß ein 
wenig Theorie eingeschoben werden. 
Die Wahl des richtigen Schlägers ent¬ 
scheidet wesentlich über Erfolg oder 
Niederlage, mindestens in dem Maße, 
wie die Ausführung eines Schlages. 
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Golf — der Sport der 
oberen Zehntausend. 

Allerdings braucht 
man heutzutage den 
heimischen Sessel 
nicht mehr zu verlas¬ 
sen, um sich an einer 
Partie Golf zu er¬ 
freuen. 



Holzschläger (Wood) dienen allgemein 
dazu, einen möglichst weiten, nicht all¬ 
zu hohen Ball zu spielen, während die 
diversen Eisenschläger (Iron) eine kür¬ 
zere, aber höhere Flugbahn des Balles 
verursachen. Der Pitching Wedge ist 
besonders geeignet, um in Sandbun¬ 
kern “gefangene“ Bälle freizuspielen, 
während der Putter dazu benutzt wird, 
den Ball auf dem Grün zu bewegen. 

Ist der richtige Schläger ausgewählt, 
muß zunächst die Zielfahne angepeilt 
werden. Dies geschieht, indem eine 
Zielmarkierung möglichst genau zwi¬ 
schen Golfer und Zielfahne positioniert 
wird. Mit Hilfe des Joysticks wird da¬ 
nach die Schlagstärke sowie der soge¬ 
nannte Snap (Spin) eingestellt. Diese 
Maßgaben treffen in dieser Form na¬ 
türlich nur auf ein ebenes Gelände zu. 
Ist der Untergrund geneigt, muß die 
dadurch entstehende Abdrift des Balles 
mit entsprechendem Vorhaltewinkel 
kompensiert werden. Je nach Lei¬ 
stungsstand bieten sich außerdem Va¬ 
riationen der einzelnen Kurse an. Im 
Professional-Mode beispielsweise muß 
der Wind genau in die Planung des 
Schlages einbezogen werden. Für jede 
Golfbahn gibt es nun eine bestimmte 
Anzahl von Schlägen, mit denen die 
Bahn normalerweise gemeistert wer¬ 
den kann - das Par. Hat eine Bahn die 
Angabe “Vier Schläge ist Par“, bedeu¬ 
tet dies, daß der durchschnittliche Spie¬ 
ler vier Schläge benötigt, um die Bahn 
zu beenden. Benötigen Sie einen oder 
zwei Schläge weniger, liegen Sie ent¬ 
sprechend unter Par. Der Schlüssel 
zum Erfolg liegt nun darin, weniger 
Schläge als alle anderen Mitbewerber 
zu tätigen. Wem dies gelingt, dem ist 
der Sieg sicher. Doch Vorsicht! Ein 
Schlag ins Wasser oder an eine Stelle 
außerhalb des Spielfeldes wird mit ei¬ 
ner Strafe geahndet, außerdem müssen 


Sie den Schlag von der gleichen Posi¬ 
tion aus wiederholen. Nur wer schon in 
der Planung kaltes Blut bewahrt, dem 
werden solche peinlichen Ausrutscher 
erspart bleiben. 

Wer sich mit dem ersten Kurs ausge¬ 
tobt hat, der kann sein Glück jederzeit 
an einem der drei weiteren Kurse er¬ 
proben... 

Resümee 

Sportsimulationen stellen schon seit 
geraumer Zeit einen festen Bestandteil 
der Software-Landschaft dar. Der Ehr¬ 
geiz der Macher liegt darin, eine mög¬ 
lichst genaue Umsetzung des jeweili¬ 
gen Themas zu erreichen. Dies ist bei 
Leader Board auch wirklich gelungen. 
Die grafische Darstellung ist anspre¬ 
chend und verspricht dem geneigten 
Spieler viele Stunden interessanter Un¬ 
terhaltung. Auch die Steuerung mit 
Hilfe des Joysticks ist einfach, aber 
durchdacht und stellt den Spieler nicht 
vor unüberwindliche Probleme. 


Sjaelidee Bcxtionung*- Doku- Grafik Sound Pr«h«/ 
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Allen Hobbygolfern sei somit Leader 
Board ans Herz gelegt. Eines sei an 
dieser Stelle noch gesagt: ln den Mona¬ 
ten November bis März ist das Heim¬ 
golfen auf dem Computer der Gesund¬ 
heit sicherlich zuträglicher, als stun¬ 
denlanges Erwandern von verschneiten 
Golfplätzen auf der Suche nach einem 
kleinen, weißen Ball... 

(mm) 
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Respektlos soll sie 
sein, die englische 
Fernsehreihe 'Spil¬ 
ling Images '. Ange¬ 
sichts des vorliegen¬ 
den Spiels kann man 
diese Feststellung 
nur unterstreichen. 


Spitting Images 

Hersteller: Domark 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: 30,- DM bis 45,- DM 

CPC 464 Kl CPC 664 Kl CPC 6128 Kl 


Der wüste Weltkrieg Nr. 3 

Auf Gottes großem Erdenrund hat es 
zum dritten Male kernig gerumst. 
Nach einem weiteren Weltkrieg, der so 
greulich gewütet hat, daß nicht einmal 
die Schweiz neutral geblieben ist, ver¬ 
suchen alle verbleibenden Staatsmän¬ 
ner und -trauen, die Weltherrschaft zu 
erlangen. Da sind Mr. & Mrs. Ayatol¬ 
lah, Seine Coolness der Papst, Groovy 
Gorbi, die entsetzliche Mrs. T. und der 
Held der westlichen Welt, Ronald 
McReagan, welcher sowohl dem Mas¬ 
kottchen einer großen Hamburgerbra¬ 
terei als auch einem bekannten ameri¬ 
kanischen Politiker ähnelt. 

Sie alle hielten gern die Macht in Hän¬ 
den, nur in dieser absurden Welt stehen 
ihnen keine Armeen als Meinungsver¬ 
stärker zu Gebote. Also heißt es selber 
Hand anlegen, was sich dann in wilden 
Schlägereien zwischen den Akteuren 
niederschlägt. 

Groovy Gorbi schlägt zu 

Daß es vor Zeiten schon einmal ein 
Spiel mit dem Namen ’Spitting Images’ 
gab, sollten Sie schleunigst vergessen, 
denn das, was Domark mit diesem Pro¬ 
gramm vorlegt, hat mit dem ersten 
Aufguß des Themas nichts mehr ge¬ 
mein. Diesmal muß sich der Spieler ei¬ 
nen Champion aus den auf dem Moni¬ 
tor dargestellten und weiter oben schon 


aufgezählten Figuren wählen. Ihr Held 
muß nun versuchen, selbst alle anderen 
Teilnehmer zu besiegen. Ist das erst ge¬ 
schafft, ist der Spieler automatisch 
Herr der Welt. 

Was man als Spieler bisher nur aus 
’Martial Arts Games’ kannte, hier nun 
mit Politikern als Kämpfern. Jede der 
Figuren ist liebevoll bis ins Detail ani¬ 
miert. Sogar Grovy Gorbis sternförmi¬ 
ges Muttermal auf der Stirn ist zu er¬ 
kennen. Läßt man sich beim Verprü¬ 
geln des Gegners Zeit und achtet auf 
die Hintergründe, kommt man aus dem 
Schmunzeln nicht heraus. Da werden 
furzende Muselmanen auf Rollbrettcm 
durchs Bild gezogen, da werfen Mess¬ 
diener mit Kondomen, da pinkelt ein 
Bobby an eine ganz bestimmte Tür in 
der Downing Street. Die Gags wollen 
gar nicht enden und entbehren mitunter 
nicht einmal des aktuellen, satirischen 
Bezuges zum Thema, den man von der 
gleichnamigen Fernsehserie (die leider 
nur in England zu sehen ist) kennt und 
schätzt. 

Aber auch die Kämpfe zwischen den 
Politikern vermögen zu überzeugen 
und zu unterhalten. Wie man’s von 
Prügelspielen her kennt, stehen eine 
gewisse Anzahl verschiedener Bewe¬ 
gungen zur Verfügung. Bei 'Spitting 
Images’ hat jede Figur noch eine spe¬ 
zielle, besonders hinterlistige An¬ 
griffstechnik. Dem Ayatollah springt 
beispielsweise ein Boxhandschuh unter 
dem Turban hervor. 


Resümee 

Das 'Spitting Images’ die Neuerfin¬ 
dung des tiefen Tellers ist, kann nicht 
gerade behauptet werden. 


SpioMoo Bodieauno*- Doku- Gtafik Sound Pr*s/ 
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Aber die Macher haben sich viel Mühe 
gegeben, nicht nur den Namen ’Spit¬ 
ting Images’ zu verwerten, sondern 
auch die Themen und den Witz, den 
das Publikum damit verbindet. Unter¬ 
haltsam, bunt und gut spielbar plaziert 
sich dieses Spiel über dem Qualitäts¬ 
durchschnitt der momentan erschienen 
Spiele. 

(hs/mm) 


Dragonninja 

Hersteller: Imagine 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 

CPC 464 X CPC 664 X CPC 6128 K 

Die sieben Kammern der Ninjas 

Das Leben eines Ninjas ist ja bekann¬ 
termaßen von ständigen Gefahren ge¬ 
prägt. In dem neuen Ninja-Spiel von 
Data East, einer Automatenumsetzung 
für den CPC, kommt dieser Umstand 
wieder einmal deutlich zum Tragen. 
Fernes Ziel ist die Befreiung des Präsi¬ 
denten der Vereinigten Staaten aus den 
Klauen bösartiger Krieger. Doch bis 
dahin ist es ein weiter Weg. Fairness 
kann man kaum von den zahlreichen 
Ninjas, Kampfhunden und Amazonen 
erwarten, daher empfiehlt es sich drin¬ 
gend, zuerst zuzuschlagen und dann 
Fragen zu stellen. Sieben Todeskam¬ 
mern gilt es zu bezwingen. Am Ende 
jeder Kammer wartet dann ein beson¬ 
ders böser Oberfiesling, der erst nach 
seinem Ableben den Weg freigibt. Die 
Fieslinge sind wirklich sehenswert, der 
feuerspeiende Fettwanst z.B. ist ein 
harter Gegner, den man nicht unter¬ 
schätzen sollte. Als wahrer Ninja sind 
Sie natürlich in allen fernöstlichen 
Kampfsportarten gut bewandert, dieses 
Wissen und Können ist Ihre beste Waf¬ 
fe im Kampf. 

Fü r eine Faust voll Yen... 

Je nach gerade zu spielendem Level 
verläuft die Stoßrichtung Ihres Auftra¬ 
ges nach rechts oder links. Sie müssen 
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Werden Sie ein ech¬ 
ter Dragon Ninja! 
Bei besonders harten 
Gegnern können Sie 
dann Ihre überra¬ 
genden Fähigkeiten 
spielen lassen, und 
Ihre Gegner mit ei¬ 
nem Superschlag 
ausschalten. 


nun unter Einsatz aller zur Verfügung 
stehenden Mittel den Weg freikämp¬ 
fen. Hier kommt nun ein für Sie nützli¬ 
cher Umstand zum Tragen. 

Bewaffnete Gegner beispielsweise hin¬ 
terlassen nach ihrem Ableben Ketten 
oder Messer, die Sie im weiteren Ver¬ 
lauf für sich nutzen können. 

Des weiteren sind gelegentlich kleine 
Kapseln zu finden. Es existieren zwei 
Ausführungen dieser Kapseln, die eine 
gibt einen Zeilbonus für das aktuelle 
Level, während die andere die schwin¬ 
denden Energievorräte aufstockt. 
Wirklich gute Ninjas zeichnen sich 
durch ihre Fähigkeit zur Konzentration 
aus. 

Durch mentale Energien ist der Ninja 
in der Lage, den sogenannten Super¬ 
schlag auszuführen. Diese Szene dürfte 
aus diversen Karate-und Prügelfilmen 
weitgehend bekannt sein. 

Nur gilt es hier nicht, einige Backsteine 
sorgfältig zu zerbröseln, sondern den 
jeweiligen Leveiwächter auszuschal¬ 
ten. Allerdings braucht der Ninja eini¬ 
ge Zeit zur Konzentration, bevor er den 
vernichtenden Superschlag anwenden 
kann. 

In dieser Zeit ist keine Bewegung mög¬ 
lich, man sollte daher seinen Standplatz 
mit Umsicht wählen, um vermeidba¬ 
rem Personalschwund vorzubeugen. 
Mit einem Superschlag können auch 
mehrere Feinde auf einmal ausgeschal¬ 
tet werden. 

Da Ihre Reichweite durch die Länge Ih¬ 
rer Arme und Beine begrenzt ist, soll¬ 
ten Sie versuchen, zusätzliche Waffen 
zu bekommen. Damit läßt sich die ei¬ 
gene Reichweite zum Teil beträchtlich 
erhöhen. 


Manche Gegner benötigen übrigens 
mehr als einen Treffer, um den Weg in 
die ewigen Jagdgründe zu finden... 

Resümee 

Grafisch präsentiert sich Dragon Ninja 
von der Schokoladenseite. Auch die 
Steuerung ist einfach und relativ leicht 
zu erlernen. 

SpieWäö Oex: anur<jf- Doku- üralik Sound PW»/ 
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Wer gerne Karatespiele bestreitet, der 
findet hier ein interessantes Programm 
für die Sammlung. 

Die Bösewichter sind ebenfalls sehens¬ 
wert und können dem geneigten Spieler 
bisweilen sehr kräftig einheizen. 


Batman 

Hersteller: Ocean Software 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 35,— DM bis 45,- DM 

CPC 464 X CPC 664 X CPC 6128 X 

Der maskierte Kämpfer 

Nachdem sich Batman jahrelang in Co¬ 
mics und Filmen durch die Welt des 
Bösen gekämpft hat. setzt er seinen 
Kampf nun als gut animiertes Home¬ 
computersprite fort. 

Der böse Pinguin wurde gerade aus 
dem Gefängnis entlassen und eröffnet 
eine Fabrik für Regenschirme in der 
Nähe seiner Villa in Gotham. Seine Fa¬ 
brik dient aber nur als Tarnung, denn 
mit Hilfe einer Roboterarmee will er 
die Weltherrschaft an sich reißen. Bat¬ 
man macht es sich natürlich zum Auf¬ 
trag, dieses zu verhindern. 

Zwe i Spiele in ein em 

Das normalerweise frustrierende War¬ 
ten beim Einladen von Datasettenver- 
sionen wird durch ein gutes Titelbild 
und eine fantastische Musik angenehm 
gestaltet. Das Actionadventure Batman 
besteht aus zwei Aufträgen: dem schon 
erwähnten Pinguin-Teil und einem 
zweiten Part, in dem Batman seinen 
Freund Robin aus den Händen des 
Gauners Joker befreien muß. 

Batman läuft während des Spiels nun 
durch viele Räume, die sich in gut ge¬ 
machter Window-Grafik immer wieder 
neu aufbauen. In diesen Räumen liegen 
öfters Gegenstände auf dem Boden die. 
wenn Batman sie mitnimmt, sehr nütz¬ 
lich sein können. In einem jederzeit er¬ 
reichbaren Menü kann man sich über 


(mm) 


Der geheime Steue¬ 
rung scode ist die 
einzige Möglichkeit, 
den machtbesessenen 
Pinguin davon abzu¬ 
bringen. die Welt¬ 
herrschaft zu über¬ 
nehmen. 
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seinen momentanen Zustand und seine 
mitgeführten Gegenstände informieren 
und Aktionen, wie zum Beispiel ein 
Schloß mit einem Dietrich öffnen, aus¬ 
führen. 

Freundlicherweise macht der Compu¬ 
ter Batman auf alle möglichen Aktio¬ 
nen aufmerksam, die dieser ausführen 
kann, so daß das nervtötende Herum¬ 
experimentieren mit Gegenständen, 
die vielleicht etwas bewirken könnten, 
wegfällt. 

Fazit 

Bei Batman handelt es sich um ein Ac- 
tionadventure höchster Klasse mit in¬ 
teressanten Comiceffekten. Schon der 
Einladevorgang überrascht positiv 
durch eine kurze Wartezeit und ein 
schönes Titelbild, das von sehr guter 
Musik begleitet wird. 


Sp«ltik» Dod.cnur-äv I**., Qialik Souivi Pro® 

rr©u"dUcn»«*ll mewaikyi Leistung 



Das Spiel glänzt durch seinen Spielwitz 
und gute Grafik. Batman ist sehr bedie¬ 
nungsfreundlich, da alle wichtigen 
Funktionen durch nur ein einzelnes 
Menü schnell erreicht werden können. 
Alles in allem ist Batman eine hervor¬ 
ragende Umsetzung, bei der nicht nur 
die Comicfreunde zugreifen sollten. 

(J. Seibel/R. Marz/mm) 

Zone Trooper 

Hersteller: Gamebusters 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: 9,95 DM 

CPC 464 E CPC 664 1X1 CPC 6128 X 

Da nger Zone 

Eine sehr unangenehme Situation, in 
die Sie mehr oder wenig zufällig hin- 
eingeschlittert sind. An Bord eines 
Raumschiffes hat ein Computerfehler 
zu einer Kursänderung geführt. Sie 
sind als einziger aus dem Tiefschlaf ge¬ 
weckt worden, um eine drohende Kata¬ 
strophe abzuwenden. Aber zu spät, ein 
Crash ist nicht mehr zu verhindern! 
Ihre Kameraden leben noch, jedoch 
wird der Tod bald erbarmungslos zu¬ 
schlagen, wenn es Ihnen nicht gelingt, 
rechtzeitig einige Plasma-Pods zu fin¬ 


den, mit denen Sie die Kameraden am 
Leben erhalten können. 

Sie beginnen Ihre Aufgabe an der 
Schleuse des notgelandeten Raum¬ 
schiffes. Ein kleiner fliegender Unter¬ 
satz sowie eine nur als mickrig zu be¬ 
zeichnende Waffe stehen zu Ihrer Ver¬ 
fügung. Und hier beginnen die Proble¬ 
me bereits. Das Magazin der Waffe ist 
nach relativ wenigen Feuerstößen völ¬ 
lig erschöpft. Sie sollten daher versu¬ 
chen, in den Besitz eines Waffeneontai- 
ners zu gelangen. Es gibt allerdings 
noch eine ganze Reihe von anderen Ge¬ 
genständen, die Sie ergattern können, 
Food Rationen beispielsweise stellen 
eine große Hilfe dar, will man nicht 
Hungers sterben. Ein weiteres Hilfs¬ 
mittel ist INFONET, ein Computer In¬ 
formationssystem, das Sie zur Hilfe 
heranziehen können. Dort sind einige 
wichtige Informationen gespeichert, 
die das Vorankommen erleichtern 
können. 

Eine Statusanzeige am unteren Bild¬ 
rand hält ständig wichtige Informatio¬ 
nen für Sie bereit. Der für Sie lebens¬ 
wichtige Sauerstoff darf dabei genauso 
wenig aus den Augen verloren werden, 
wie der Zustand Ihrer Energiezellen 
und die Poweranzeige, die den gegen¬ 
wärtigen Zustand des fliegenden Un¬ 
tersatzes anzeigt. Da nicht unbegrenzt 
Zeit zur Verfügung steht, sollten Sie 
versuchen, mit System vorzugehen. 
Die Zeitanzeige, die ebenfalls in der 
Statuszeile angesiedelt ist, gibt an, wie¬ 
viel Zeit noch zur Verfügung steht. 
Sollte eines Ihrer drei HauptsySterne ei¬ 
nen gefährlichen Zustand aufweisen, 
werden Sie von diesem Sachverhalt 
durch eine blinkende rote Tafel in 
Kenntnis gesetzt. 

Resümee 

Ein nettes Arcadenadventure, das Ga¬ 
mebusters hier vorgelegt hat. Zwar ist 
einige Zeit erforderlich, bis man sich 
mit der Funktion der einzelnen Items 
vertraut gemacht hat, doch dann be¬ 
ginnt Zone Trooper so richtig Spaß zu 
machen. Obwohl die Tastatur.Steue¬ 
rung vorgesehen ist, möchten wir drin¬ 
gend zur Benutzung eines Joysticks 
raten. 

(mm) 
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Software für CPC und Joyce 


Preiswerte Software für Amstrad-CPC und 
Joyce mit deutschen Handbuch - so machen 
diese Super-Programme richtig Spaß! 

WS-TUNER für Wordstar * 

Vergessen Sie alles, was Sie bisher über 
WordStar-Erweiterungen erfahren haben! 
Endlich können Sic Dateien per Cursor¬ 
tasten auswählen, die Tasten frei belegen, 
Textbausteine verwalten, neue WordStar- 
Bcfehle definieren, Textlöschungen rück¬ 
gängig machen, Steuerzeichen invers an- 
zeigen lassen, zwischendurch andere Text¬ 
dateien anschen, drucken ohne zwischen¬ 
zuspeichern, stets freie Diskettenkapazi¬ 
tät und Textlänge ermitteln und, und, und ... 

Nur DM 49j8ö 

(unverbindliche Prciscmpfehlung) 

Großes Buch der Public Domain-Software 

Alles was Sie über deutsche PD-Software 
wissen müssen, finden Sic in diesem Buch. 
Zusätzlich die deutschen Dokumentationen 
zu den Disks 1-6, 8 und 10-12. Ideale Fund¬ 
grube für Computertcrfans! Mit Rabattcou¬ 
pons für unsere Software! Nur DM 34,80 

Neu: Diskette 18 - MacroPack/Z80 

Asscmblerprogrammierung für Einstcigcr 
und Profis - Z80-Makroassembler mit hnk- 
fähigem Code, Linker, Debugger und Editor. 


1- JRT-Pascal mit 64K-Strings, Overlays * 

2- Z80-Asseinbler, Linker, Debugger 

4- Compiler Small-C: Fließkommazahlcn * 

5- Forth-83: Multitasking, Assembler ... 

6- Utilities: Diskmonitor, Dateiretter ... 

10- BizBasic - CPC-Basic-Erweilerung 

11- E-Basic - CBasic-kompatibler Compiler 

12- Für Turbo Pascal: INLINER, Grafik 
15- WordStar-Utilities: Fußnoten, Index * 
17- C-Interpreter - interaktiv C lernen * 

19- Telekommunikation mit MEX 

* auf dem CPC-464/664 nur mit Speichcr- 
erweitcrung (64K genügen). 

Der Preis? Nur 30,- Mark pro Diskette! 
(unverbindliche Prciscmpfehlung) 


Unser Kombi-Angebot: 

Eine beliebige der obigen Disketten 1-19 
und neun 3-Zoll-Disketten von Maxell für 
nur 79 Mark! Oder: WS-TUNER und neun 

3-Zoller von Maxell für nur DM 99,80! 


3-Zoll oder Vortex-Format. Lieferung per 
Nachnahme oder Vorauskasse, Ausland: 
nur Vorauskasse. 

MARTIN KOTULLA 

Grabbestraße 9, 8500 Nürnberg 90 
Telefon 09 11/30 33 33 

Weitere Bezugsquellen: 

Firma Simon, 4600 Dortmund 1, Tel. 0231/511370 
Mükra, 1000 Berlin 42, Tel. 030/7529150 
Firma Becker, 6690 St. Wendel 8, Tel. 06856/504 
Computerstore, 8500 Nürnberg, Tel. 0911 /289028 
Hochholzer, 8062 Markt Indersdorf, Tel. 08136/1625 
Weeske, 7150 Backnang, Tel. 07191/1528 
Fritz Obermeier, 4972 Löhne 1, Tel. Ö5732/3246 
Gisbert Denz, 4784 Rüthen 2, Telefon 02902/58040 
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1—Software-Review 


Command 

Performance 

Hersteller: US Gold 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: ca. 50.- DM 

CPC 464 X! CPC 664 K CPC 6128 XI 

The World Beaters 

Manchmal fragt man sich wirklich, 
wozu eine Compilation eigentlich da 
ist? Nun, zum einen natürlich, damit 
die Firmen ihre alten Produkte ver¬ 
markten können, zum anderen haben 
viele User dadurch die Möglichkeit, 
ein paar gute Spiele zu einem fairen 
Preis erwerben zu können. Das Ganze 
interessiert uns natürlich nicht, denn 
wir freuen uns über eine Compilation. 
Wir haben wieder einmal eine lohnens- 
werte für den Amstrad aufgetrieben, 
auf der sich so mancher Hit befindet. 

Bobsleigh 

Bobsleigh ist eine Sportsimulation, die 
sich mit einem Sport beschäftigt, der 
bisher immer zu kurz gekommen ist - 
dem Bobfahren. Sie haben die Option, 
Ihren Bob, die Kufen und den Veran¬ 
staltungsort zu wählen. Die grafische 
Realisierung ist gut gelungen. Das 
Spiel ist abwechslungsreich, und etwas 
Übung wird benötigt, bevor man es 
schafft, mit seinem Bob ins Ziel zu 
kommen. Alles in allem ein Höhepunkt 
im Bereich der Sportsimulationen. 



Mercenary 

Der Klassiker neben Elite überhaupt. 
Sie sind ein Söldner im 21. Jahrhun¬ 
dert. Ihr Raumschiff hat auf dem krie¬ 
gerischen Planeten Targ bei einer 



Bruchlandung Schaden erlitten. Ihr 
Ziel ist es nun, diesen Planeten gesund 
und munter zu verlassen. Dies kann auf 
mehrere Arten geschehen, jedoch müs¬ 
sen Sie hierzu diverse Ersatzteile fin¬ 
den. Die Grafik präsentiert sich als 
flott animierte Vektorgrafik. Das Spiel 
ist recht komplex und bietet langanhal¬ 
tenden Spielspall. 

Cholo 

Sie sind in einem Bunker gefangen, der 
sich von innen nicht mehr öffnen läßt. 
Einzige Hoffnung ist ein Programm, 
mit dem Sie einen Roboter auf der Pla¬ 
netenober fläche steuern können. Mit 



Hilfe dieses Roboters können Sie ande¬ 
re Roboter anzapfen und steuern. Soll¬ 
te es Ihnen gelingen, die Robbies so 
umzuprogrammieren, wie Sie sie brau¬ 
chen, so könnte es Ihnen eventuell 
glücken, den Bunker zu verlassen. 
Cholo präsentiert sich, ebenso wie 
Mercenary, als Spiel mit Vektorgrafi¬ 
ken. Es ist ebenfalls sehr komplex auf¬ 
gebaut und kann somit den Spieler auf 
Dauer erfreuen. 

lOth Frame 

lOth Frame ist neben Bobsleigh und 
Hardball eine weitere Sportsimulation, 
die in dieser Compilation enthalten ist. 


Bei dieser Simulation geht cs ums Bow¬ 
ling. 

Bis zu acht Spieler können an diesem 
Wettkampf teilnehmen. Sie können 
entweder in einer Liga oder einfach als 
“Open Bowling“ spielen. Im Spiel sel¬ 
ber kann man die Position des Spielers 
sowie einen Punkt, über den die Kugel 
rollen soll, einstellen. 

Des weiteren ist es noch möglich, die 
Geschwindigkeit und den Seitendrift 
der Kugel zu verändern. Die Grafik ist 
einfach gehalten und liegt in den mittle¬ 
ren Amstrad-Regionen. Wenn man 
zum erstenmal spielt, macht cs noch 
richtig Spaß, aber danach verliert es 
immer mehr an Reiz. 



Fazit 


Command Performance ist eine Com¬ 
pilation, die durch ihre Mischung an 
Action und Sportspielen überzeugen 
konnte. 


Spioltcwo Etatommoa* Doku- Grafik SouM Praia.' 

Iroundllnhkoil monlnlan Lw»*.uiy 



Es befinden sich natürlich noch mehr 
Spiele auf der Diskette, die wir jedoch 
aus Platzgründen nicht vorstellen 
konnten. 

Das wären zum Beispiel: Xeno. 
Leviathan und Hardball. Alles in allem 
kann man der Compilation das Prädikat 
“empfehlenswert“ geben. 

(rg) 
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Lesespaß 

mit Preisvorteil 


Ein Abonnement 
ist praktisch und gewährt 
zusätzlich noch Preisvorteile. 

PC Amstrad International kostet im Abonnement: 

Im Inland bzw. West-Berlin: 6 Ausg. = 30,- DM 

12 Ausg. = 60,- DM 

Im europäischen Ausland: 6 Ausg. = 45,- DM 

12 Ausg. = 90,- DM 

Im außereuropäischen Ausland: 6 Ausg. = 60,- DM 

12 Ausg. = 120,- DM 


Widerrufsrecht: 

Wir garantieren jedem 
Abonennten das 
Recht, seine Bestel¬ 
lung innerhalb einer 
Woche nach Abschluß 
schriftlich zu widerru¬ 
fen. Die rechtzeitige 
Absendung des Wider¬ 
rufschreibens genügt 
zur Fristwahrung. 



Bitte benutzen Sie 
die Bestellkarte. 


DMYM/erlag Postfach 250 3440 Esch weg e 









[—Abenteuer 


Gamers Message 


Wir heißen Sie wieder einmal herzlich in unserer Helpline-Ecke 
willkommen. Auch in dieser Ausgabe haben wir wieder in unse¬ 
rem Erste-Hilfe-Kasten für CPC-Spiele gekramt, um Sie auf dem 
Weg durch den Spieledschungel zu begleiten. Also, lieber Leser, 
das Ranzel zusammengeschnürt, und auf geht‘s durch die aben¬ 
teuerliche Welt der CPC-Spiele. 


Pokes für den CPC 464 

Herr H. Werner Volksdorf aus Gelsen¬ 
kirchen hat uns ein paar Pokes zuge¬ 
schickt mit der Bitte um Veröffent¬ 
lichung. Er verwendet dazu das Multi- 
face Two. 

Die ersten beiden Pokes sind für 
BALLBREAKER gedacht. Der erste 
bewirkt, daß nach einem Treffer auf 
die unteren Steine die jeweils darüber¬ 
liegenden nicht nachrutschen. Bei 
einem weiteren Treffer auf dieselbe 
Stelle verschwindet der zweite Stein 
und so weiter. Auch die beweglichen 
Gegenstände, wie z.B. Frösche, blei¬ 
ben nach Erscheinen auf der zweiten 
Ebene. In die Speicherstelle &1521 
braucht nur der Wert &0A hineingepo- 
ked zu werden. 

Der zweite Poke macht schon etwas 
mehr: Bei Ballverlust(!) führt er ins 
nächste Level. Will man jedoch im 


Karte zu Indiana Jones 
Level 2 


gleichen Level bleiben, muß man auf 
jeden Fall sehr schnell in das Pause¬ 
menü flüchten. Der Poke dazu lautet 
POKE & 13CA, &06. 

Bei den nächsten zwei Pokes, gültig für 
das Spiel HE AD OVER HEELS, muß 
erwähnt werden, daß sie bei Bedarf 
auch wieder rückgängig gemacht wer¬ 
den müssen. Der erste ist ein Sammel- 
poke für alle vier Laufrichtungen der 
beiden Helden; damit lassen sich alle 
im Spielfeld befindlichen Hindernisse 
überwinden, ohne sein Leben zu riskie¬ 
ren. Auch die Roboter können einem 
nicht mehr schaden, wenn man nicht 
gerade direkt auf sie springt. 

Zum Erreichen von Bonussprüngen 
(Schmusehasen) muß der Spieler auf 
diese Gegenstände hüpfen (Vorsicht 
bei Robotern!). Der Poke lautet POKE 
&4A90,&C3. Will man Gegenstände 
wieder verschieben, muß der alte Wert 


dieser Speicheradresse wieder einge¬ 
setzt werden (POKE &4A90,&23). 

Der zweite Poke ist nur in ausweglosen 
Situationen anzuwenden. Er hilft, das 
dreidimensionale Spielfeld zu verlas¬ 
sen und so (mit etwas Spielerei) doch 
eine höhergelegene Tür zu erreichen. 
Steht unser Held dann im Torbogen, 
der natürlich nicht beschädigt sein 
darf, muß man wieder den alten Wert 
für die Speicheradresse einsetzen, da 
es sonst zu einem Systemabsturz kom¬ 
men kann. Wie bereits erwähnt, lassen 
sich mit etwas Spielerei sogar Wände 
durchqueren, aber unmittelbar danach 
müssen Sie den Poke wieder zurückset¬ 
zen. 

Der veränderte Poke lautet POKE 
&.4A7D,&0, der alte Wert ist POKE 
&4A7D.&DD. 

Trantor, the last Stormtrooper 

Von Alexander Trost aus Mengen 
stammen die nächsten Tips. Um bei 
Trantor unendlich viel Lebensenergie 
zu erhalten, sollte man zuerst die Ta¬ 
statursteuerung umbelegen, und zwar 
auf die Tasten außer dem P,R,0,B 
oder E; ist dies geschehen, wählen wir 
das Spiel mit der Joysticksteucrung. 
Nun begeben wir uns zuerst zu einem 
Schrank, wo wir den Joystick nach 
unten bewegen und gleichzeitig die 
Tastenkombination PROBE drücken. 

Ist dies geschehen, nimmt die Lebens¬ 
energie nicht mehr weiter ab. Danach 
sollte man zu dem Bcamcomputer ge¬ 
hen und sich den Beamcode geben las¬ 
sen; nebenbei deaktiviert man alle an¬ 
deren Computer. Sind Sie bei dem 
Beam reehncr angekommen, können 
Sie die Kennziffern eingeben. Nun 
geht‘s zum Transporter (rechts da¬ 
neben). Mehr wird nicht verraten. 

P.S.: Man sollte sich natürlich zuerst 
die Codekarte geben lassen. 

Tips zu Savage 

Ebenfalls von Alexander Trost kom¬ 
men die Codes für Level zwei und drei 
vom Spiel Savage. Für das Level zwei 
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muß man SABATTA eingeben, für Le¬ 
vel drei gilt der Code FERGUS. 

Karten zu Indiana Jones 

In der letzten Ausgabe hatten wir Ihnen 
ein paar Tips sowie eine Karte zu 
“Indiana Jones and the Temple of 
Doom“ präsentiert. Leider mußten wir 
aus Platzgründen auf weitere Karten 
verzichten. Doch diesmal sollen auch 
die Indy-Fans voll auf ihre Kosten 
kommen. Die Tips und Karten stam¬ 
men übrigens von Dieter und Thomas 
Körber. 

Academy 

Tips zum Spiel Academy auf dem CPC 
464 schickte uns Benedikt Hartz aus 
Lutten. 

Wenn Sie auf Reaktoren, Military und 
CX-Civil-Supply-Centres schießen, 
sind diese beleidigt und lassen Sie nie 
mehr rein. Mies, nicht? Falls Sie ein 
Objekt als Fortress identifizieren, soll¬ 
ten Sie langsam darauf zutliegen, und 
erst dann, wenn diese das Feuer eröff¬ 
nen, mit dem Gegenbeschuß antwor¬ 
ten. So werden sie schneller zerstört. 
Zu den Solar-Discs ist zu sagen, daß 
sie, sobald man in ihre Reichweite 
kommt, sofort das Feuer eröffnen. Zu¬ 
dem lassen sie sich weder durch Laser 
noch durch Raketen zerstören; somit 
bleibt nur noch der Angriff mit Bom¬ 
ben. Allerdings hilft es auch, wenn 
man einen Supressor Droid herbeiholt. 


Karte zu Indiana Jones 
Level 3 


denn dann schießen diese auch nicht. 
Die “sausenden Droids“ lassen sich 
übrigens mittels Laser “anschieben“. 
Die beste Möglichkeit ist aber wahr¬ 
scheinlich, mit Superschilden so 
schnell wie möglich zwischen den 
Discs durchzufliegen und eine Bombe 
abzu werfen. 

Reaktoren können auch dadurch zer¬ 
stört werden, daß man nahe genug her¬ 
anfliegt und dann eine Rakete abfeuert. 


Mindshadow 

Man benötigt von der Insel folgende 
Gegenstände; 

Das Stroh aus der Hütte, 
den Stahl vom verrotteten Boot, 
die Weinrebe aus der Oase, 
den Stein, die Landkarte, 
die Muschel, 

die Flasche Rum von der anderen Seite 
der Insel. 

Um in die Höhle hineinzugelangen, 
müssen Sie die Weinrebe an den Felsen 
binden und sich abseilen. Hierbei soll¬ 
ten Sie keine Gegenstände mitnehmen. 
In der Höhle entdecken Sie dann auch 
die Landkarte. Den Rum müssen Sie 
dem Kapitän geben, damit er Sie auf 
das Schiff läßt. Sollte die Besatzung 
Schwierigkeiten machen, hilft ein 
wenig Prügel. Das Schiff stoppen Sie, 
indem Sie das Fleischermesser aus der 
Küche an sich bringen und damit die 
Ankerkette durchtrennen. Denken Sie 


aber auf jeden Fall an das Segeltuch! In 
England angekommen, sollte man zu¬ 
erst den schlafenden Mann etwas ge¬ 
nauer in Augenschein nehmen. Wir 
zeigen uns von unserer schlechten Seite 
und bringen ihn um seinen Besitz. Mit 
dessen Geld gehen wir zum Fischer, 
bei dem wir eine Angelrute käuflich er¬ 
werben können. 

Was macht man anderes mit einer An¬ 
gel als Fischen? Also gehen wir mit un¬ 
serer Angel erst einmal an den Pier und 
fischen dort eine Zeitung aus dem 
Wasser. Nun geben wir THINK ARC- 
MAN ein. Bei dem Tramp kauft man 
das Codewort und geht zu Rick‘s Cafe. 
Höflich, wie wir sind (sehen wir von 
der Sache mit dem Schläfer einmal ab), 
übergeben wir der Garderobiere unse¬ 
ren Hut. Nun gehen wir nach Osten, 
untersuchen den Drink und folgen dem 
Mann. Hier muß man THINK 
TYCOON eingeben. Beim Zurückge¬ 
hen sollte man den Hut nicht verges¬ 
sen. Untersuchen Sie diesen genau, 
denn man weiß ja nie... 

Gehen Sie nun zum Ladevorgang über, 
und nennen Sie dem Verkäufer das Co¬ 
dewort. Jetzt können Sie sich einen Paß 
kaufen und damit nach Luxemburg 
fliegen. 

ln Luxemburg: 

Im Gasthof stellt sich die leidige Frage, 
welche Kammer wir aussuchen, aber 
nachdem wir den Hut genau untersucht 
haben, dürfte sich dieses Problem 
eigentlich von selbst lösen. Wir durch¬ 
suchen die Leiche und nehmen den Zet¬ 
tel und den Ausweis an uns. Nun muß 
man THINK JARED und THINK BOB 
MASTERS eingeben. Damit man nicht 
vom Pfeil in Raum 202 erwischt wird, 
muß das Segeltuch benutzt werden. 
Dieses bietet einen verläßlichen 
Schutz. Nachdem wir das Pergament in 
unser Inventar aufgenommen haben, 
schauen wir es uns erst einmal an. Nun 
begeben wir uns in die Bergwelt, in der 
wir mit der Muschel ein wenig graben. 
Der ausgegrabene Zettel gibt uns die 
Kontonummer. Diese Kontonummer 
liefern wir in der Bank ab und öffnen 
das Schließfach. Wir nehmen die dort 
befindliche Waffe an uns und gehen zu 
Raum 207. Wir nutzen das Recht der 
Notwehr und erschießen den Bewoh¬ 
ner, schauen uns die Botschaft an und 
geben THINK WILLIAM ein. Schon 
steht dem glücklichen Ende nichts 
mehr im Wege. 

(br) 
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Brettspiel anno 1989 

Mensch ärgere dich nicht - 
etwas anders als gewohnt 

Hand aufs Herz — wann haben Sie zum letzten Mal einen gemütlichen 
Nachmittag bei Kaffee und Kuchen und einem Brettspiel im Kreise Ihrer 
Lieben verbracht? Was, keine Zeit? Termine über Termine? Dann wird es 
allerdings allerhöchste Eisenbahn. Das Spiel liefern wir: Mensch ärgere dich 
nicht. Den Kaffee und Kuchen müssen Sie besorgen, die Mitspieler müssen 
Sie einladen. Und dann noch etwas: Einen CPC müssen Sie besitzen. 


‘Mensch ärgere dich nicht 4 ist ein 
Spiel, welches schon Generationen be¬ 
geistert (und eventuell geärgert) hat. 
Das vorliegende Spiel benutzt aller¬ 
dings als Spielbrett den Monitor Ihres 
CPC, was den Reiz dieses Spieles 
durchaus nicht vermindert, sondern 
eher das Gegenteil erreicht. 

Die Spielanleitung 


Spiel kann von zwei bis vier Spielern 
gespielt werden. Sie können natürlich 
auch ihren CPC als Spieler zwei bis 
vier oder einzeln definieren (der CPC 
besetzt jeden Spielerplatz, den Sic ihm 
vorgeben), während Sie den Part von 
Spieler 1 übernehmen. Wenn es Ihnen 
gefallt, können Sie den CPC als alleini¬ 
gen Spieler deklarieren, indem Sie sich 
eine Spieldemonstration anschauen. 


hierzu brauchen Sie allerdings gute 
Konzentration, denn das Spiel ist ra¬ 
sant. 

Obwohl der CPC mehrere Spieler 
gleichzeitig besetzen kann, ist der 
Spielablauf unparteiisch. 

Der Name des Spielers darf maximal 
acht Buchstaben betragen, möchten Sie 
den CPC als Mitspieler eintragen, so 
brauchen Sie nur die ersten drei ent¬ 
sprechenden Buchstaben (com.) 

einzugeben. Die restlichen fünf Buch¬ 
staben können Sie frei bestimmen, 
z.B. ‘com.Hans 4 (CPC = Hans als Ihr 
Gegner). 

Nach den Eingaben wird das Spielfeld 
aufgebaut. Der CPC bestimmt per Zu¬ 
fall, welcher Spieler mit seiner ‘Rund¬ 
reise* beginnt. Nachdem Sie die Taste 
‘S 4 gedrückt haben (Start), fängt der 
CPC automatisch an zu würfeln. Ist die 
gewürfelte Zahl keine ‘6‘, so wtir- 



Mehmet Tasin, der Autor unseres 'Mensch 
ärgere dich nicht'-Spieles, ist 17 Jahre alt und 
macht zur Zeit eine Lehre als Chemiker. Er be¬ 
sitzt seit drei Jahren einen CPC 664 und pro¬ 
grammiert hauptsächlich in seiner Freizeit (wo¬ 
bei wir ihm noch viel Zeit zum Programmieren 
wünschen), die er auch mit Zeichnen, Sport (Bo¬ 
dybuilding) und Lesen (vornehmlich Science 
Fiction/ Fantasy) ausföllt. 


Eigentlich bedarf dieses Spiel keiner 
genauen Erklärung mehr. Sollte es 
dennoch jemanden geben, der die Re¬ 
geln nicht kennt, hier sind sie, einge¬ 
packt in die Beschreibung des Ablaufs 
des Programmes: 

Nach dem Start des Programmes wer¬ 
den Sie gefragt, ob Sie Informationen 
brauchen. Wenn ja, werden Sie kurz 
über die wichtigsten Funktionen infor¬ 
miert. 

Danach kommt die Frage, ob Sie einen 
Färb- oder einen Grünmonitor besitzen 
(<F> für“ Färb und <G> für Grün¬ 
monitor). Je nach Monitor werden die 
Figuren entsprechend geändert. Das 


Abb. I: 
'Mensch ärgere 
dich nicht' — 
der CPC 
ärgert sich mit. 
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Das ist die Software zur PC-international 
— Jeden Monat neu —* 


DATABOX: 

— mehr als der übliche 
Softwareservice 

— bringt ergänzend 
sämtliche Listings 
der jeweiligen Zeit¬ 
schrift und alle 
Programmbeispiele 
auf Kassette oder 
auf 3’Diskette. 

— Programme sind, 
soweit system¬ 
bedingt möglich, auf 
allen drei CPC- 
Modellen lauffähig. 
Einzelheiten entneh¬ 
men Sie bitte der 
nebenstehenden 
Aufstellung. 

— soweit die Program¬ 
me nicht Bestandteil 
einer Serie sind, 
befinden sich alle 
Programme als 

,ready to run’ auf der 
Databox. 

— erscheint jeden 
Monat und trägt das 
Titelbild des gleich¬ 
zeitig erscheinenden 
Heftes. 

— der Datenträger zur 
PC International ent¬ 
hält außerdem je¬ 
desmal ein zusätzli¬ 
ches Bonuspro¬ 
gramm, das nicht im 
Heft abgedruckt ist. 



Amstrad 


Die AMSTRAD-Story 

Wie alles begann 


Interview: 

AMSTRAO-Goscnofljrtubr 
Helmut Jost Im Gespräch 


PCW: 


Super tlps zu 
Mallnrd Beste 


CGA-Progrsmme aut 
HerculoS'Graflkkar te 

Tolle BaalcZ- Programm 


CPC • PCW JOYCE • PC 


Für alle CPCs als Kassette und 
3“-Diskette. 

Auch als Abonnement mit Preisvorteil 
erhältlich. 


Einzelbezugspreise für Databox: 

3-Diskette 


Inland: Ausland: 

Einzelpreis 24.- DM Einzelpreis 24.- OM 

indkosten 3.- DM zzgl. Versandkosteii 5.-DM 

Endprels 27.- DM Endpreis 29.- OM 


Kassette 


Inland: 

Ausland: 


Einzelpreis 14.- DM 

Einzelpreis 

14,- DM 

zzgl. Versandkosten 3.- 0M 

zzgl. Versandkosten 

5.- DM 

Endprels 17.- OM 

Endprels 

19.- DM 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Liefe¬ 
rungen ins Ausland ist Nachnahme nicht 
möglich. 

Preisvorteii durch Databox-Abo: 

Unser beliebter Databox-Service kann 
selbstverständlich auch im Abonnement 
bezogen werden. Dadurch sparen Sie 
Mühe und haben außerdem noch einen 
Preisvorteil gegenüber dem Einzelbezug. 



Inhalt der Databox zu Heft 4/89 


Programm 

464 

664 

6128 

Brettspiel anno 1989 

• 

• 

• 

Nicht nur für Komponisten 

• 

• 

• 

Assemblerecke 

• 

• 

• 

1-KB-Grafik 

• 

• 

• 

1-KB-ldeal für Erwachsene 

• 

• 

• 

1-KB-Hopping Mad 

• 

• 

• 

1-KB-Labyrinth 

• 

• 

• 

1-KB-Schiebefix 

• 

• 

• 

1-KB-Corner (mit Emulator) 
Gut gescrollt ist halb 

• 

• 

• 

gewonnen 

Rx und fertig in drei 
Sekunden 

• 

• 

• 

• 

Kunterbunt 

• 

• 

• 

Schattenlichter 

• 

• 

• 

Zeichensatz International 

Bo n us p rog rann m: 

• 

• 

• 

Top-Worm-Racer (Action-Spiel) 

• 

• 

• 

Es befinden sich noch INFO-Files (INR 
auf der DATABOX. 



Das Databox-Abo kostet: 

Als Kassette für 1/2 Jahr 
(6 Lieferungen): 

Im Inland und West-Berlin.90,— DM 

Im europäischen Ausland.100,—DM 

Im außereuropäischen Ausland.120,— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin.150,— DM 

Im europäischen Ausland.160,— DM 

Im außereuropäischen Ausland.180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen); 

Im Inland und West-Berlin.180— DM 

Im europäischen Ausland. 200,— DM 

Im außereuropäischen Ausland.240,— DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin..300,— DM 

Im europäischen Ausland.320— DM 

Im außereuropäischen Ausland.360,— DM 

Bitte benutzen Sie für Ihre Bestellung 
die Abo-Karte. 

Widerrufsrecht: Wir garantieren jedem Abonnenten das 
Recht, seine Bestellung innerhalb einer Woche nach Ab¬ 
schluß schriftlich beim DMV-Verlag, Postfach 250, 
3440 Eschwege zu widerrufen. Die rechtzeitige Absen¬ 
dung des Widerrufsschreibens genügt zur Fristwahrung. 


- ■ " ——--- 

DMV-verlag - Postfach 250 - 3440 Eschwege 

Bitte Bestellkarte benutzen! 
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feit er noch zweimal, ansonsten setzt 
die entsprechende Figur aus. Die Ab¬ 
frage der Spieler findet im Uhrzeiger¬ 
sinn statt. Rechts oben auf dem Spiel¬ 
feld sehen Sie die Kennzeichnungen 1, 
2,3,4 und W. Die Zahlen eins bis vier 
stehen für die Spieler 1 bis 4. Wenn Sie 


an der Reihe sind, wird dies im Info- 
Fenster angezeigt. Je nach Auswahl 
können Sie dann mit den Cursortasten 
den roten Pfeil auf die gewünschte Zahl 
(entspricht der Figur-Nr.) bewegen. 
Durch < Copy > wird die Figur in Be¬ 
wegung gesetzt. Der Spielablauf ist an¬ 


sonsten nach den original Spielregeln 
programmiert. 

So, und nun bleibt uns nur noch, Ihnen 
zu raten, sich nicht allzusehr zu ärgern 
und sich statt dessen ein paar schöne 
Stunden beim ‘Mensch ärgere dich 
nicht zu machen. (Mehmet Tasin/jb) 


für 464-664-6128 LJ 

§ 

ff 

l _UL 

ln 



»* Mensch Ärgere Oich Nicht ** 
** von ** 


MEHMET TASIN 

»****•••*•******»•**« 


50 
60 
70 
80 

90 MODE 1:INK 0,0:2 NK 1,13.INK 2.24 INK 3, 
6:BORDER 0 

100 DIM r(57),1<57>.sp(17).x(15).y(15),n(l 
5 ) , t (15 ) 


110 WINDOW *2.1,40,7,24:POKE &B28B.120 
120 GOSUB 2590:GOSÜB 2130 
130 FOR x = 0 TO 15:sp(x)=100:NEXT 
140 FOR x=0 TO 41:1(x)=7:NEXT:demo=0 
150 xl(0)=2:yl(0)=10:xl(l)=14:yl(l)=2 
160 xl(2)=22:yl(2)=l4:xl(3)=10:yl(3)=22 
170 GOSUB 2900 
180 ' 

190 '*•* Start *** 

200 1 

210 x =INT(RND* 4) 

220 IF LEN(sp$(x)) =0 THEN GOTO 210 
230 PEN 2:LOCATE 2,25:PEN 1:PRINT sp$(>); 
240 PEN 2:PRINT " faengt an - <S> zum Star 
t . ! “ 

250 a$=INKEY$ 

260 IF a$="s" OR a$=”S" THEN GOTO 280 
270 GOTO 250 

280 PEN 0:LOCATE 1,25:PRINT STRING$(39,143 

); 


290 POKE &B28B,120 
300 ’ 

310 '*** Hauptschleife (Wuerfeln) *** 

320 ' 

330 FOR dr=l TO 3 
340 g = I NT(RND«6) +1 

350 IF demo=l THEN PEN 0:LOCATE 30,6:PRINT 
"D E M O" 

360 LOCATE 30,12+x*2:PRINT h$;h$;h$;h$;h$; 


h$;h$;h$ 


370 PEN 0:LOCATE 30,12+x*2:PRINT sp$(x) 

380 LOCATE 29,22:PEN 2:PRINT h$;h$;h$;n$;h 
$;h$;h$;h$;h$;h$;h$:LOCATE 27,22 
390 PRINT CHR$(1S)+CHR$(1)+CMR$(143)+CHR$( 
8)+CHRS £15)+CHR$(0)+CHR$(g+233) 

400 LOCATE 30,22:PEN 0:PRINT spi(x);dr 
410 IF demo=l THEN PEN 3:LOCATE 30.6PRINT 
"DEM 0'' 

420 GOTO 490 
430 NEXT 

440 LOCATE 30,12 + x*2:PRINT h1$,hl$;h1$|h 1$ 
;hl$;hl$;hl$;hl$ 


450 PEN 0:LOCATE 30,12+x*2:PRINT sp$(x) 

460 IF x <3 THEN x = x + l ELSE x=0 

470 IF LEN(sp$(x >)=0 OR LENtSp${x>>>8 THEN 

440 

480 GOTO 330 

490 IF LEFT$(sp$(x),3) = "com" THEN com= 1 EL 
SE com=0 

500 FOR m=x*4 TO x*4 + 3 

510 IF ap(m)<100 THEN GOTO 540 

520 NEXT 

530 IF g = 6 THEN GOTO 760 ELSE 430 
540 IF g<6 THEN GOTO 910 
550 IF com:1 THEN GOTO 720 
560 ' 

570 '****• Figur raus ? (Abfrage) ***** 

580 ' 

590 LOCATE 29,8:PRINT h$+h$»h$+n$ 

600 PEN 3:LOCATE 30,8:PRINT"Ja' 

610 r = 1;LOCATE 33,8:PRINT h1$♦h1$♦h1$+h1$ 
620 PEN 0:LOCATE 33,8:PRINT"Nein" 

630 a$=INKEV$ 

640 PEN 0:LOCATE 27,6:PRINT"Figur raus ?" 
650 IF a$=CHR$(243) THEN LOCATE 29.8PRINT 
hl$+hl$+hi$+hl$:PEN 0:LOCAT£ 30,8:PRINT"J 
a":LOCATE 33.8:PRINT h$+h$+h$+h$:PEN 3:LOC 
ATE 33,8 : PRINT"Nein - ': r = 0 

660 PEN 3:LOCATE 27.6:PRINT"F1gur raus ?" 


[1285] 
[1637] 
[499] 

[ 775 ] 
[1710] 
[ 775 ] 

[1285] 

[117] 

[2925] 

[1365] 

[1781 1 
[1608] 
[1223] 
[2172] 
[1501 ] 
[1313] 
[903] 
[117] 
[463] 
[117] 
[1290] 
(1903] 
[1861 ] 
[2553] 

[278] 

[ 22 71 ] 

[419] 

[2667] 

[659] 

[117] 

(1660] 
[117] 

[ 570] 

[ 747 ] 
[2153] 

[3940] 

[1781] 

[3375] 

[5427] 

[1664] 
[1743] 

[371] 

[350] 

[3797] 

[1781] 

[1502] 

[2762] 

[506] 

[2276] 

[940] 

[1933] 
[350] 

[1559] 
[1379] 
[1369] 
[117] 

[1282] 
[117] 

[1320] 

[1097] 

[1755] 

[18103 

[ 278] 

[2454] 

[8040] 


[3612] 


670 IF a$=CHR$(242) THEN LOCATE 33,8:PRINT 
hl$+hl$+hl$+hl$:PEN 0:LOCATE 33.8:PRINT"N 
ein":LOCATE 29,8:PRINT h$♦h$+h$+h$:PEN 3:L 
OCATE 30,B:PRINT"Ja":r=l 
680 IF a$=CHR${224) THEN GOTO 700 
690 GOTO 630 

700 PEN 0:LOCATE 27,6:PRINT"Flgur raus ?” 


[8048] 


[1003) 
[ 407 ] 
[2454] 



710 IF r=0 THEN GOTO 920 [1234] 

720 IF x=0 THEN an = 31 ELSE an=x*10-10+l (1315) 

730 IF 1(an)< 8 THEN GOTO 760 [890] 

740 IF 1(an) MOD 10 = x THEN GOTO 910 [900] 

750 - . [117] 

760 '*** Figur ins Spiel setzen •*• [1359] 

770 ' [117] 

780 an=0:FOR m=x*4 TO x*4 + 3 [1249] 

790 an=an+l [347] 

800 IF sp(m)=100 THEN GOTO 830 [889] 

810 NEXT [350] 

820 GOTO 910 [326] 

830 LOCATE m(m),t(m):PRINT k$(x) [2778] 

840 x(m)=xl(x):y(m)=yl(x) [1391] 

850 LOCATE x (m) , y (m) : PRI NT s$(x) [1995] 

860 IF x=0 THEN sp(m)=31 ELSE sp(m)=x*10-l [867] 
0+1 

870 IF )(sp(m))> 7 THEN GOSUB 2040 [ 1374 ] 

880 1(sp(m))=an* 10 +x [ 816 ] 

890 GOTO 340 [464] 

900 ' [117] 

910 *«* Zug (Computer) *** [2274] 

920 ' [117] 

930 IF com=l THEN GOTO 980 (13813 

940 an=0:FOR m=x‘4 TO x*4+3:an=an+1 [1597) 

950 IF sp(m)<100 THEN LOCATE x(m)-1,y(m)+1 [2695] 
:PEN 2:PRINT an 

960 NEXT [350] 

970 IF com=0 THEN 1180 [1004] 

980 r = 0:ra=0:FOR C0=x*4 TO x*4+3 [804] 

990 PEN 1:r=r+1 [640] 

1000 IF sp(co)=100 THEN GOTO 1070 [1212] 

1010 IF sp(CO) >40 THEN GOTO 1070 [2521] 

1020 IF sp.( CO) + g >40 THEN 10S0 [ 1723] 

1030 IF 1(sp(co)+g)>8 THEN f=r;ra=1:GOTO 1 [2667] 
330 

1040 GOTO 1070 [317] 

1050 an=sp(co)+g-40 [373] 

1060 IF 1(an ) >8 THEN f=r:ra=1:GOTO 1330 1 2851 ] 

1070 NEXT [360] 

1080 r=0:FOR cO=x*4 TO x*4+3:r=r+l [1356] 

1090 f = r:GOTO 1330 [1232] 

1100 NEXT [350] 

1110 an=0:FOR r = x*4 TO x»4+3 [1140] 

1120 IF sp(r)=100 THEN an=an+l [1094] 

1130 NEXT [350] 

1140 FOR r = 42 + x* 4+ 3 TO 42+x*4*an STEP -1 [3526] 

1150 IF 1(r)<8 THEN GOTO 440 [1118] 

1160 NEXT [350] 

1170 GOTO 430 [462] 

1180 r=28 [199] 

1190 a$=INKEY$ [27s] 

1200 IF r=26 THEN r=36 [687] 

1210 PEN 3:LOCATE r,4:PRINT CHR*(231) [1364] 

1220 IF a$=CHR$(242) THEN LOCATE r,4:PRINT [3260] 
hl$:r=r -2 

1230 IF r < 36 THEN IF aJ=CHR$(243) THEN LOC [3362] 
ATE r,4:PR INT hl$:r=r + 2 

1240 IF a$=CHR$(224> THEN GOTO 1260 [995] 

1250 GOTO 1190 [397] 

1260 LOCATE r,4:PRINT hl$ [1501] 

1270 IF r/2-13=5 THEN a$="m":GOTO 1570 [1606] 

1280 f=r/2-13:GOTO 1330 [1252] 

1290 IF com=0 THEN SOUND 1,200,10,12,5,6,1 [360lj 
5:GOTO 1190 

1300 IF ra=1 THEN ra=0:GOTO 1080 [1723] 

1310 GOTO 1100 [351] 

1320 ' [117] 

1330 ' *** Zug prüfen *** [1203] 

1340 ‘ [117] 

1350 m=x*4+(f-1) [187] 

1360 IF x = 0 THEN f*30 [ 734] 

1370 IF x=l THEN f=40 |749] 

1380 IF x >1 THEN f = x*10-10 [863] 

1390 IF sp(m)=100 THEN GOTO 1290 il004] 

1400 IF sp(m)>40 THEN GOTO 1410 ELSE GOTO [1215] 
1440 

1410 IF sp(m)+g>41+x*4+4 THEN GOTO 1290 [1203] 

1420 IF 1(sp(m)+g)>7 THEN GOTO 1290 [801] 

1430 GOTO 1560 [387] 

1440 IF sp(m)+g<41 THEN GOTO 1490 [917] 

1450 an=(sp(m)+g)-40 [861] 

1460 IF x=l THEN IF sp(m)+g>f THEN GOTO 15 [1671] 
30 

1470 IF Kan) MOD 10=x THEN GOTO 1290 [ 1058] 

1480 GOTO 1560 [387] 

1490 IF sp(m)> f THEN GOTO 1510 [2291 ] 

1500 IF sp(m)+g>f THEN GOTO 1530 [1611] 

1510 IF sp(m)< 41 AND l(sp(m) + g) MOD 10=x T [2892] 
HEN GOTO 1290 


Listing Brettspiel 


Listing Brettspiel 
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»Einzelheft-/Databox-Bestellung« 

Ich bestelle folgende Einzelhefte bzw. Databoxen 
von »PC Amstrad«: 


Einzelheft 

CPC 

CPC 

Joyce 

PC 1512 

Ausgabe 

Kassette 

3“-Diskette 

3“-Diskette 

51/4“-Diskette 

6.- 

DM/Stck 

14,- DM/Stck. 

24,- DM/Stck. 

24.- DM/Stck. 

24,- DM/Stck. 

□ 

1/88 

□ 

□ 

□ 

□ 

□ 

2/88 

□ 

□ 

□ 

□ 

□ 

3/88 

□ 

□ 

C 

□ 

□ 

4/88 

□ 

□ 

□ 

□ 

□ 

5/88 

□ 

□ 


□ 

□ 

6/88 

□ 

□ 


□ 

□ 

7/88 

□ 

□ 

LJ 

□ 

□ 

8/88 

□ 

□ 

□ 

□ 

□ 

9/88 

D 

c 

□ 

□ 

□ 

10/88 

□ 

□ 

□ 

□ 

□ 11/88 

□ 

□ 

□ 

□ 

— 

12/88 

□ 

□ 

□ 

o 

□ 

1/89 

□ 

□ 

□ 

□ 

□ 

2/89 

□ 


□ 

□ 

□ 

3/89 

□ 


□ 

□ 

— 

4/89 

□ 


□ 

□ 


CPC-Sonderhefte (bitte ankreuzen): 


312 □ Sonderheft 6/88 14,-DM 

313 □ Sonderheft 7/88 14,-DM 

+ Porto/Verpackung 

(Inland 3, - DM. Ausland 5, - DM) _ DM 

Gesamtbetrag: DM 


□ Diesen Betrag zahle ich mittels des beigefügten Verrechnungsschecks. 

□ Ich bitte um Lieferung per Nachnahme (nur innerhalb der BRD). 

(Bol Nachnahme komme 2um 0 g Betrag noch die Nachnahmeqeoühr hinzu) 


Datum 


Unterschritt (bei Minderjährigen Unterschritt des gesetzlichen Vertreters) 


Bestellservice für CRC 464 - 664 - 6128 








1520 

GOTO 1560 

1 387] 

1530 

an=g-(f-sp(m)) 

[ 364 ] 

1540 

IF an > 4 THEN GOTO 1290 

[949 ] 

1550 

IF 1(41»x*4tan)>7 THEN GOTO 1290 

[836] 

1560 

IF com=l THEN GOTO 1620 

[ 1358] 

1570 

FOR an=x*4 TO x*4+3 

[ 869 ] 

1580 

IF splanXlOO THEN LOCATE x(an),y(an) 

[ 3455 ] 

:PRINT 3 J(x) 


1590 

NEXT 

[350] 

1600 

IF aJ ="m” THEN GOTO 1110 

(1236| 

1610 


(117] 

1620 

'** Bewegung »* 

1 7 78] 

1630 


1117] 

1640 

zw = l(sp(m)):q=0:POKE &B28B,120 

[2329] 

1650 

IF sp(m)=31 THEN 1(31)=0:GOTO 1700 

(1815] 

1660 

IF sp(m)=l THEN 1(1)=1:GOTO 1700 

[12361 

1670 

IF s p(m) = 11 THEN 1(11)=2:GOTO 1700 

[ 1862 1 

1680 

IF sp(m) = 21 THEN 1(21) = 3:GOT O 1700 

[1595] 

1690 

IF sp(m)< 41 OR sp(m)=41 + x * 4 THEN 1{sp 

[4022 ] 

<m>) = 

7 ELSE l(sp(m))=x 


1700 

FOR an=l TO g 

[ 478 ] 

1710 

IF l(sp(m))=7 THEN LOCATE x(m).y(m):P 

(2091 ] 

RINT 

kJ(4):GOTO 1740 


1720 

IF l(sp(m))<7 THEN LOCATE x(m),y(m):P 

[5520] 

RINT 

kj(l(sp(m))):GOTO 1740 


1 730 

LOCATE X(m),y(m):PRINT sj(1(ap(m)) MO 

[3462] 

0 10 



1740 

SOUND 1,60,5,12,10 

[ 1044 ] 

1750 

IF sp(m)=f THEN sp(m)=41+x»4 

( 19 B 9 ] 

1760 

* •** 

[53] 

1770 

IF r(sp(m))=4 THEN GOTO 1800 

( 1907] 

1 780 

x(m)=x(m)+r(sp(m)) 

[946] 

1 790 

IF r(sp(m))=-2 THEN GOTO 1820 

[1712] 

1800 

y(m)=y(m)+r(sp(m))-2 

( 1984 ] 

1810 

‘ * * • 

[53] 

1820 

sp(m)=sp(m)+l 

[1012 ) 

1830 

LOCATE x(m),y(m):PRINT sj(x) 

[1995] 

1840 

IF sp(m) = 41 THEN sp(m) = 1 

[1390] 

1850 

NEXT 

[350] 

1860 

IF 1(sp(m))>7 THEN GOSUB 2040 

[1374] 

1870 

1(sp(m))=zw 

[482 ] 

1880 

IF sp(ip) >40 THEN GOTO 1920 

[1290] 

1890 

IF g = 6 THEN GOTO 340 ELSE 440 

[1873] 

1900 


[117] 

1910 

•» Prüfen ob Spiel ENOE »• 

[1531 ] 

1920 


[117] 

1930 

FOR an=42+x*4 TO 42+x*4+3 

[1360] 

1940 

IF 1 (an)< 8 THEN GOTO 1890 

[827] 

1950 

NEXT 

[ 350 ] 

1960 

sp( 16 )=sp( 16 )+l 

[ 585 ] 

1970 

3P$(x) = spj(x)tSTRINGJ(9-LEN(spJ( x>) , 3 

[ 2885] 

2):sp(x*4)=sp(16) 


I960 

PEN 0:LOCATE 38,12+x*2:PRINT sp(16) 

[2780] 

1990 

IF sp(16>*l=sp(17) THEN GOTO 3600 

[1630] 

2000 

GOTO 440 

[444] 

2010 


[117] 

2020 

'** Stein rausschme>sen ** 

[ 985 ] 

2030 


[117] 

2040 

PEN 1:zwl=l<sp(m)) MOD l0:zw2=(1(sp(m 

[2755] 

))-zwl)/10 


2050 

INK 0,26:SOUNO 1,20.5,12:SOUND 1,50,5 

[3125] 

,12:SOUND 1,30,5,12 


2060 

SOUND 5,20,5.12,,,20:CALL &BD19CALL 

[2358] 

&BD19:INK 0,0 


2070 

80RDER 26:CALL &BD19:BORDER 0 

[1498] 

2060 

LOCATE m(zwl»4+zw2-l),t(Zwl*4+Zw2-1) 

[2471] 

2090 

PRINT sjfzwl):sp(zwl*4+zw2-l)=100 

[2130! 

2100 

RETURN 

[ 555] 

2110 


[117] 

2120 

'** Def1nierungen ** 

[ 945 ] 

2130 


[117] 

2140 

SYMBOL AFTER 229 

[ 1455] 

2150 

SYMBOL 229,42,21,10,21,10,1,0.0 

[1741] 

2160 

SYMBOL 230,168,84,168.80,160,64,0,0 

[ 1878 ] 

2170 

SYMBOL 231.31,7,7,9,17,32,64,0 

[1842] 

2180 

SYMBOL 232,255,0,255,0,255,0.2S5.0 

[ 1 738 ] 

2190 

SYMBOL 233,0,255,0,255,0,255,0,255 

[ 1 732 ] 

2200 

SYMBOL 234,0,0,0,24,24,0,0,0 

[2173] 

2210 

SYMBOL 235,192,192,0,0,0,0,3,3 

[1886] 

2220 

SYMBOL 236,192,192,0,24,24,0,3,3 

I 1920) 

2230 

SYMBOL 237,195,195,0,0,0,0,195,195 

[ 1608] 

2240 

SYMBOL 238,195,195,0.24,24,0,195,195 

[2273] 

2250 

SYMBOL 239,219,219,0,0,0,0,219,219 

[2462] 

2260 

SYMBOL 240,0,3,15,31,63,63.127,127 

12291 ] 

2270 

SYMBOL 241,0,192,240,248,252.252,254. 

[2406] 

254 



2280 

SYMBOL 242,254,254,252,252,248,240,19 

[3038] 

2290 

SYMBOL 243,127,127,63,63,31,15,3.0 

[1847] 

2300 

SYMBOL 244,0,0,0,0,19,6,44,46 

[ 1843] 

2310 

SYMBOL 245,0.0,0,0,192,32,16,16 

[2120] 

2320 

SYMBOL 246,61,62,23,27.8,0,0,0 

[ 1 7 7 7 ] 

2330 

SYMBOL 247,16,144,224,192,0,0.0,0 

[ 1893] 

2340 

SYMBOL 248,0,0,2,5,10,21,42,21 

[ 1807] 

2350 

SYMBOL 249,0,0,128,80,168,80,168,84 

[2259] 

2360 

SYMBOL 250,0,3,12,16,32,32,64,64 

[2109] 

2370 

SYMBOL 251,0,192,48,8,4,4,2,2 

[1755] 

2380 

SYMBOL 252,2,2,6,4.8,48,192,0 

[ 1235 ] 

2390 

SYMBOL 253,64,64,32,32,16,12,3,0 

[2266] 

2400 

SYMBOL 254,127,124,32,0,0,0.0,0 

[2156] 

2410 

SYMBOL 255,254,62,4,0,0,0.0,0 

[ 1706] 

2420 

PRINT CHRJ(22)+CHRj(1); 

[ 1702 ] 

2430 

hJ = CHRj< 2 2)+CHRS(1)+CHR$(15)+CHR$(2) + 

( 5656] 
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CHR$(143>+CHRJ(8>+CHR$(15)+CHRJ(1)+CMRJ(23 
3) 

2 440 hl$=CHRJ(22)+CHRJ(1)+CHRJ(15 )+CHR$(2) 
♦CHRJ(143)+CHR$(8)+CHR$(15)+CHRJ(1)»CHRJ(2 
32) 

2450 rJ=CHRJ(250)+CHRJ(251)+ CHRJ(10)+CHRJ( 
B)+CHRJ(8)+CHRJ(253)*CHRJ(252) 

2460 r1$=CHR$(244)+ CHRJ(245)+CHRJ(10)+CHRJ 
(8)+CHRJ(8)+CHRJ(246)+CHR$(247) 

2470 k$(4)=CHR$(15)+CHRJ(2)+CHRJ<240)tCHRJ 
(24 1)*CHRJ(10)+CHRJ(8)+CHRJ(8)+hJtCHRJ( 8) ♦ 
CH RJ (15)+CHR$(2)+CHR$(243)+ CHR J(242>+CHR$( 
8)+CHRJ(8)+CHRJ(11)»CHRJ(15)+CHRJ(0)+r$ 
2480 kJ(0)=CHRJ(15)»CHRJ(1)+CHRJ{240)+CHRS 
(241) -t-CHR J ( 10 ) +CHR$( 0 ) +CHRJI 8 ) +CHRS (243)tC 
HRJ< 242)+CHRJ(B)+CHRJ(8)+CHRj(11)*CHRJ(15) 
+CHR$(0)+r$ 

2490 kJ(2)=CHRJ(15)+CHRj(3)+CHRJ(240)+CHRJ 
(241)+CHR$(10)4CHR$(8)+CHRj(B)+CHRJ(243)*C 
HRJ(242)*CHRJ(8)+CHRJ(8)+CHRJ(11)+CHR$( 15) 
+CHR$(0)+r$ 

2500 kJ(3)=CHR$(15)+CHRJ(2)*CHRJ[240)+CHR$ 
(241)+CHRJ(10)+ CKRJ(8)+ CMRJ(8)+CHRJ(243)* C 
HRJ(242)+CHRJ(15)+CHRJ(3)+CHRJ(8)*CHRJ(8)* 
CHRJ(11)+CHRJ(248)+CHRJ(249)+CHRJ(10)+CHRJ 
(8)+CHRJ(8)+CHRJ(229>+CHRJ(230)+CHRS(15)*C 
HRJ(0)+CHRJ(8)+CHR$(8)+CHRJ( 11) + r$ 

2 510 kJ <1)=CHRJ(15>+CHRJ(1)+CHRJ(240)+CHRJ 
(241)+CHRJ(10)+CHRJ(8)+CHRJ(8)+CHRJ(243)*C 
HRJ(242)4CHR$( 1 5 ) + CHRJ ( 3 ) -»CHR J ( 8 ) »CHR J ( 8 > * 
CHRJ(11)+CHRJ<248)*CHR$(249)+CHR$(101+CHRJ 
(8)4CHRJ(8)+CMR$( 229)tCHRJ(230)+CHRJ( 15 )-*-C 
HRJ(0)+CHRJ(8)+ CHRJ(8)fCHRJ (11) + r$ 

2520 sJ(0)=CHRJ(15>4CHRJ(2)+kJ(0)*CHRJ(8)f 
CHRJ(8)+CHRJ(11) + r1J 

2530 sJ(2)=CHRJ(15)+CHRJ(3)+kJ(2)+CHRJ(B)+ 
CHRJ(8) +CHRJ(11) + r 1$ 

2540 sj(3)=kj(3)aCHRj(8)*CHRJ(8)+CHR$l11)+ 
rlj 

2 5 50 sj(1)=kj(1 )fCHRJ(8)+CHRJ(8)+CHRJ( 11 ) + 
rlj 

2560 RETURN 
2570 ' 

2580 *** rlchtungs Daten *** 

2590 ' 

2600 FOR x=l TO 56 
2610 READ r(x ) 

2620 NEXT 

2630 DATA 4,4,4,4,2,2,2,2.4,4,-2,-2,-2,-2, 
4,4,4,4,-2,-2 

2640 DATA 0,0,0,0.-2,-2,-2,-2.0.0,2,2,2.2 , 
0,0,0,0.2,2 

2650 DATA 2,2,2,2,4,4,4,4,-2,-2,-2,-2,0.0, 

0,0 

2660 1 

2670 '** Plazierung ** 

2680 ' 

2690 RESTORE 2800 
2700 FOR m=0 TO 31 
2710 READ x.y.g 

2720 IF m<16 THEN m(m)=x.t(m)=y 
2730 LOCATE X,y 

2740 IF g > 3 THEN PRINT sJ(g-4) ELSE PRINT 
kj(g) 

2750 NEXT 

2760 FOR y=0 TO 3:F0R x=424y*4 TO 42+y»4+3 

2770 1 (x)=y:NEXT:NEXT 

2780 1(31)=0:1(1>=1:1(11)=2:1{21)=3 

2790 RETURN 

2800 DATA 2,2,4,4,2,4,2,4,4,4,4,4 
2810 DATA 20,2,5.22.2,5,20,4,5,22,4,5 
2820 DATA 20,20,6.22,20,6.20,22.6,22,22.6 
2830 DATA 2,20,7,4,20,7,2,22,7,4,22,7 
2840 DATA 12,4,1,12,6,1,12,8,1,12,10,1 
2850 0A7A 14,12,2,16,12,2,18.12,2,20,12,2 
2860 DATA 12,14,3.12,16,3,12,16,3,12.20,3 
2870 DATA 4,12,0,6,12,0,8,12,0,10,12.0 
2880 ' 

2890 1 •• Spielfeld Aufbau ** 

2900 ' 

2910 GOSUB 3870:PEN 3:FOR X=1 TO 23 

2920 LOCATE x,l:PRINT CHRJ(154):LOCATE 24, 

X:PRINT CHRJ <149) 

2930 LOCATE x,24:PRINT CHRJ(154):LOCATE 1, 
x:PRINT CHRJ(149) 

2940 LOCATE 25,x:PRINT CHRJ(149):LOCATE 40 
,x:PRI NT CHRJ(149) 

2950 NEXT 

2960 LOCATE 26,1:PRINT STRINGJ(14. 154) ; 
2970 LOCATE 26,24:PRINT STRINGJ(14, 154) ; 
2980 LOCATE 26,20:PRINT STRINGJ(14,154); 
2990 LOCATE 26,19:PRINT STRINGJ(14,154); 
3000 LOCATE 26,10:PRINT STRINGJ{14.154); 
3010 LOCATE 26,9,PRINT STRINGJ(14,154); 
3020 PRINT CHRJ(22)«-CHRJ(0) : LOCATE 1,1 PRI 
NT CHRJ(150) 

3030 LOCATE 24,1;PRINT CHRJ(156):LOCATE 1. 
24:PRINT CHRJ(147) 

3040 LOCATE 40,24 PRINT CHRJ(153):LOCATE 2 
5,24:PRINT CHRJ(147) 

3050 LOCATE 25,1:PRINT CHRJ(150):LOCATE 40 
,1:PRINT CHRJ(156) 

3060 LOCATE 25,20:PRINT CHRJ(150),LOCATE 4 
0,20:PRINT CHRJ(156) 
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3070 LOCATE 25 ,19;PRINT CMR$(147):UOCATE 4 
0,X9:PRINT CHRJ(153) 

3080 LOCATE 24,24:PRINT CHRJ(153):LOCATE 2 
5,10:PRINT CHR$(150) 

3090 LOCATE 40,10:PRINT CHRJ(l56):LOCATE 4 
0,9:PRINT CHR$(153) 

3100 LOCATE 25,9:PRINT CHR$(147) 

3110 PRINT CHR$(22)+CHRJ(1):POKE &B28B.120 

3120 FOR *=26 TO 388 STEP 4 

3130 PLOT 10,x:DRAM 372,x,2 

3140 PLOT 10,x+2,1:DRAW 372,x+2 

3150 NEXT 

3160 FOR x=26 TO 84 STEP 4 
3170 PLOT 394,x:DRAW 628,x,l 
3180 PLOT 394,x + 2 :ORAW 628,x+2,2 
3190 NEXT 

3200 FOR x=106 TO 244 STEP 4 
3210 PLOT 394,x:DRAW 628,x.l 
3220 PLOT 394,x+2:DRAW 628,x+2,2 
3230 NEXT 

3240 FOR x=266 TO 387 STEP 4 
3250 PLOT 394,x:ORAW 628,x.l 
3260 PLOT 394,x+2,2:DRAW 628,x+2 
3270 NEXT 

3280 FOR x=26 TO 38:LOCATE X.3.PRINT h$:NE 

3290 LOCATE 26.6:PRINT h$;h$;hj;h$;hi;h$:h 
*;h$,h$;h$;h$;h$;h$;h$ 

3300 IF demo=l THEN PEN OtLOCATE 30,6 PRIN I 
T D E M 0":GOTO 3320 

3310 PEN OtLOCATE 27,6:PRINT"Figur raus ?" | 

3320 PEN OtLOCATE 29.3:PRINT"1 2 3 4 W" | 
3330 LOCATE 30,8:PRINT "ja Nein" 

3340 FOR x=26 TO 28:FOR y = 21 TO 23 
3350 LOCATE X,y:PRINT h$ 

3360 NEXT:NEXT 

3370 FOR x =12 TO 18:LOCATE 39,x:PRINT hj;N [ 

3380 PEN 0:LOCATE 26,21:PRINT CHR$(150)+CH I 
R$(154)+CHR$(156>+CHR$(10)+CHRJ(8)+CMRJ(8) 
+CHR$( 8 )+CHR$(149)+CHR$(32)+CHRS(1491+CHRJ 
(10)+CHRJ(8)+CHRJ(8)+CHRJ(8)+CHRJ(147)+CHR 
$(154)+CHR$(153) 

3390 FOR x =0 TO 3 

3400 LOCATE 26,x*2 + 11 ;PRI NT s$(x);" ";sp$ [ 

3410 NEXT , 

3420 FOR x=41 TO 71:PLOT 409,x:DRAW 439.x, [ 

1:NEXT 

3430 FOR y=10 TO 14 STEP 2 [ 

3440 FOR x=2 TO 22 STEP 2 

3450 IF x =12 THEN IF y =12 THEN GOTO 3490 I 
3460 IF y =12 THEN IF x =12 THEN GOTO 3490 [ 

3470 PEN 2:LOCATE x,y:PRINT k$(4) 

3480 PEN 2 :LOCATE y,x:PRINT xj( 4 ) 

3490 NEXT:NEXT 

3500 LOCATE 2,10:PRINT k$(0):L0CATE 14,2 p [ 
RINT k*(1) l ' 

3510 LOCATE 22,14;PRINT k$<2):LOCATE 10,22 (: 
: PRINT k$(3) 

3520 GOSUB 2660 

3530 INK 1,13:INK 2,24;INK 3,6: 

3540 ENV 1,3,3,1,3,-3, 1 ,3,2,i, 3,-5 i 

3550 ENV 2,20,-0.3,0.3,30,-0.2, Ö. 1 .* 2 0 , -0.5 [j 

3560 ENV 4,=10,5000 r, 

3570 ENV 5.=8.19 . 

3580 RETURN }, 

359° ; j; 

3600 «***» Game Over «*«** 

3610 • 

3620 FOR X=1 TO 100 [e 

3630 IF y<3 THEN y=y+l ELSE y =0 [i 

3640 LOCATE 8,13:PEN y:PRINT "Game Over [1 

3650 NEXT 

3660 FOR x =0 TO 3 r 7 

3670 IF LEN ( spi ( x )') = 0 THEN GOTO 3690 [1 

3680 IF sp(x»4)>5 THEN sp{x* 4) = sp<17) [2 

3690 NEXT [3 

3700 CLS:GOSUB 3890 

3710 FOR x =8 TO 33 

3720 LOCATE x,3:PRINT h$:NEXT 

3730 LOCATE 14.3:PEN 0 :PRINT “Steger 11 ste [3 

3740 f= 0 :FOR x=0 TO 3 [j 

3750 IF LEN(sp$(X))=0 THEN GOTO 3800 
3760 PEN 1 :LOCATE 11 .8 + sp(x*4)* 3 :PRI NT CHR [2 
$(48+3p(x*4))+CHR$(46) 

3770 IF f = 0 THEN FOR y=15 TO 25:LOCATE y, 1 18 
0 :PRI NT h 1 $:LOCAT E y, 12 :PRINT hlJtLOCATE y 
,11:PRINT hl$:NEXT:FOR y=16 TO 24:LOCATE y 
, 11 :PRINT h$ : NEXT : f = 1 

3780 PEN 3:LOCATE 16,8*sp(x*4)* 3:PRINT S p$ |3 

3790 LOCATE 28,7+sp(x•4)*3:PRINT s$(x) [1 

3800 NEXT i 3 

3810 PEN 1:LOCATE 5,25:PRINT"Bitte >Lecrta [ 4 . 

ste< druecken.I “ 

3820 a$=INKEV$ (2 

3830 IF a$=“ ” THEN RUN r ,, 

3840 GOTO 3820 f,, 

3850 1 


3860 '** Eingaben *• 

3870 * 

3880 POKE &B28B,120:GOTO 3980 

3890 PEN 3:LOCATE 2,3:PRINT CHRJ(149) LOCA 

TE 39,3:PRINT CHRJ(149) 

3900 LOCATE 3,2:PRINT STRINGJ(36,154)• LOC 
ATE 3,4:PRINT STRINGJ(36,154); 

3910 LOCATE 2,2:PRINT CHRJ<150):LOCATE 39 
2:PRINT CHRJ(156) 

3920 LOCATE 2,4:PRINT CHRJ(147):LOCATE 39 
4:PRINT CHRJ(153) 

3930 FOR x=346 TO 370 STEP 4 
3940 PLOT 26,x:ORAW 612,x,l 
3950 PLOT 26,x + 2,2:DRAW 612,x + 2 
3960 NEXT 
3970 RETURN 
3980 GOSUB 3890 

3990 FOR X = 8 TO 33:LOCATE x,3:PRINT hJ:NEX 

4000 PEN 0:LOCATE 9.3.PRINT "Mensch Ärgere 
Dich Nicht“ “ 

4010 PEN 2:LOCATE 3,7:PRINT “Infos • Ja 
/ Nein“ 

4020 PEN 1:LOCATE 13,7:PRINT"J N" 

4030 aj=INKEYJ 

4040 IF aj="j" OR aJ="J“ THEN GOTO 4330 
4050 IF aj="n“ OR aJ="N“ THEN GOTO 4070 
4060 GOTO 4030 

4070 PEN 2:LOCATE 3,9:PRINT"Mon1tor : Färb 
/ Gruen“ 

4080 PEN 1:LOCATE 13,9:PRINT “F G” 

4090 aJ=INKEYJ 

4100 IF aJ=“g OR aJ="G“ THEN GOSUB 4450 G 
OTO 4130 

4110 IF aj="f" OR aJ="F" THEN GOTO 4130 
4120 GOTO 4090 

4130 PEN 2:LOCATE 3,11:PRINT “Spieler :" 
4140 PEN 1:FOR x=0 TO 3:LOCATE 10,13+x*2P 
RINT s${X);" ”1 

4150 PEN l.PRINT STRING$(8.144);-NEXT 
4160 sp(17 ) =0:PEN 1:FOR x = 0 TO 3:spJ(x)="“ 
^LOCATE 13,14 + x«2:PRINT STRINGJ(8, 144 ) ; :N£ 

4170 PRINT CHRJ(22)+CHRJ(0) 

4180 FOR x=0 TO 3 

4190 PEN 2:LOCATE 13.14 + x*2:LINE INPUT 
spj(x) 

4200 IF LEN(sp$(x))=0 THEN GOTO 4230 
4210 IF LEN(spJ(x))>8 THEN LOCATE 13,14+x» 
2-.PEN 1 : PR INT STRINGS ( 8 , 144 ); " 

;:GOTO 4190 

4220 sp(17)=sp(17)*l 

4230 NEXT 

4240 IF sp(17)<2 THEN GOTO 4160 
4250 FOR x=0 TO 3 

4260 IF LEFTJ(spJ(x),3)="cOm“ THEN r=r+l 
4270 NEXT 

4280 IF r=sp(17) THEN demo=l 
4290 CLS 
4300 RETURN 
4310 1 

4320 *• Infos ** 

4330 ‘ 

4340 PEN OtLOCATE 3,7:PRINT STRINGS(20,143 

4350 PEN 2:LOCATE 3,7:PRINT"Steuerung ; li 
nks / rechts (Cursor) 

4360 LOCATE 3,9:PRINT "Mark 1erung: Copy / 

W = weiter“ 

4370 LOCATE 3.11:PRINT"E1ngabe Sp.“ 

4380 LOCATE 3,13 : PRINT" z . 8 : com_ 

. = Computer" 

4390 LOCATE 15. 15:PRINT"Mehmet. . = Spieler 
X“ 

4400 LOCATE 3,17:PRINT“Anzahl • min.2 / 
max. 4" 

4410 LOCATE 3,19:PRINT"Start : Spieler 

X (per Zufal 1 )" 

4420 LOCATE 3,21:PRINT"Spielart : nach Or 
g1n. Spielrege 1n" 

4430 LOCATE 3,23:PRINT"We1ter : mit <Ta 
s t e > " 

4440 CALL &BB18:CLS »2:GOTO 4070 
4450 * 

4460 '*»» Fuer grün Monitor •** 

4470 * 

4480 k$(1)=CHR$(15)+CHR$(3)+CHRJ(240)+CHR$ 
(10)+CHR$(242)+CHRJ(8)+CHRJ(8>+CHR$(15)+CH 
RJ{1)+CHRJ(243)+CHRJ(11)+CHRJ(241)+CHR$(15 
)+CHRJ(0)+CHRJ(8)+CHRj(8)+rJ 

4490 sj(1) = kJ(1)+CHR$(8)+CHRJ(8)+CHRJ(11)+ [ 
r 1 J 

4500 kJ(3)=CHR$(15)+CHRJ(1)+CHRJ(240)+CHRS [ 

(241 )+CHRJ(10)+CHR$(8) + CHR$(8)+CHR$( 15)+CH 

R$(3)+CHRJ(243)+CHRJ(242)+CHRJ(15)+CHRJ(0) 

+CHRJ(8)+CHR${8)+CHRJ(ll)+rJ 

4510 sJ(3)=kS(3)+CHRJ(8)+CHRJ(8)+CHRS(11)+ f 

rlj 

4520 RETURN r 
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Nicht nur für Komponisten 

Soundmanager - 

das Programm für Musikliebhaber 

Ich beschäftige mich schon seit einiger Zeit mit dem Thema ‘CPC + Musik 4 . 
Angefangen hat alles damit, daß ich Musikstücke in ein CPC-Musikpro- 
gramm eingegeben habe. Etwas später fing ich an, die Musikstücke selbst 
zu komponieren und keine Notenvorlagen mehr zu verwenden. Doch leider 
war ich zu sehr an das Musikprogramm gebunden, so daß ich nicht viel mit 
den Liedern anfangen konnte. Aufgrund dieser Tatsache habe ich jetzt ei¬ 
nen eigenen Musikeditor namens ‘Soundmanager 4 geschrieben. 



Zur Benutzung des “Soundmanagers** 
sind zumindest geringe Musikkennt¬ 
nisse Voraussetzung. Listing 1 ist das 
Startprogramm für Listing 2 und 4 
(Soundmanager + Konverter). Der 
Soundmanager muß unter dem Namen 
“SM36“ und der Konverter unter dem 
Namen “KONVERT** abgespeichert 
werden. Listing 5 (Name: “PLAY“) 
enthält die Songabspielroutine zum 
Einbau der selbstgemachten Songs in 
eigene Programme. Listing 3 ist ein 
Datalader, der die Dateien ‘SONG. 
BIN* und ‘SOUNDSET. 4 erzeugt. 

Auf der Databox zum Heft befindet 
sich ein von mir komponierter Song, 
der als Anschauungsobjekt dienen soll. 
Der Datalader enthält die Daten in 
komprimierter Form, so daß nur noch 
ca. 20 Prozent des ursprünglichen Um¬ 
fangs abgetippt werden müssen. 

Beim Entpacken wird der Bildsehirm- 
speicher mitbenutzt, so daß Sie also re¬ 
gelrecht zuschauen können. 


Die Bedienung des Programms 

Der Soundmanager wird mit ‘RUN‘ 
‘SM‘ gestartet. Es ist ratsam, vor dem 
Stau dieses Vorprogramms einen 
Reset auszulösen. Wenn Sie das beach¬ 
tet haben, erscheint kurz nach dem 
Start ein Kurzmenü. Durch Druck der 
Taste < 1 > starten Sie den Soundma¬ 
nager. Mit der Taste <2> wird der 
Konverter gestartet, auf den ich später 
zurückkommen werde. 

Haben Sie den Soundmanager gestar¬ 
tet, so erscheint nach dem Bildschirm¬ 
aufbau und kurzer Initialisierungs¬ 
phase links oben ein Pfeil, der sich mit 
dem Joystick steuern läßt. Durch das 
Drücken des Feuerknopfes lassen sich 
je nach Pfeilstellung die entsprechen¬ 
den Felder ‘anklicken“. 

Optionen 

LOAD/SAVE Song: Lädt/ Speichert 
den kompletten Song auf Diskette. Zu¬ 


vor muß allerdings der “SONG¬ 
NAME“ angeklickt und eingegeben 
werden. Da das Soundset ebenfalls ge¬ 
laden/gespeichert wird, kann auch ein 
“SOUNDSETNAME“ angegeben wer¬ 
den. Wurde kein Soundsetname ange¬ 
geben, so wird es unter dem Song¬ 
namen geladen/ gespeichert. Um den 
Demosong zu laden, müssen Sie als 
Songnamen “SONG“ und als Sound¬ 
setnamen “SOUNDSET“ eingeben. 

LOAD/SAVE Soundset: Lädt/ spei¬ 
chert die Instrumente (Hüllkurven). 
Zuvor muß allerdings der “SOUND¬ 
SETNAME“ angeklickt und angege¬ 
ben werden. 

Ext (Exit): Ausgang, Programm been¬ 
den. 

PLAY Song: Spielt das gesamte Lied 
ab, wobei eine Wartezeit in Kauf ge¬ 
nommen werden muß. da der CPC alle 
noch nicht ausgerechneten Notenlän¬ 
gen errechnet. Die Wartezeit kann zwi¬ 
schen 0 (alle Notenlängen schon ausge¬ 
rechnet) und 18 Sekunden (keine 
Notenlängen bisher ausgerechnet) lie¬ 
gen. Im Regelfall liegt die Wartezeit 
zwischen null und drei Sekunden. Der 
Song wird ab der aktuellen POSI- 
TIONnr. abgespielt und fängt nach 
POSITION 63 wieder bei 0 an. 

PLAY Makro: Spielt das aktuelle Ma¬ 
kro ab. 

EDIT Makro: Ermöglicht das Editie¬ 
ren des aktuellen Makros (siehe ‘Edi¬ 
tor 4 ). 

Werteänderung in Soundset/ POSI¬ 
TION u. MakroNr. 

Zur Änderung der Werte ist einfach 
das Feld, in dem der Wert steht, anzu¬ 
klicken, wobei der Feuerknopf ge¬ 
drückt gehalten werden muß. Jetzt 
kann man nach Wunsch den Wert 
durch Hebel hoch/runter einstellen. 

Soundset 

Die Hüllkurvendefinition entspricht 
den ENV/ENT-Kommandos des Loco- 
motive-Basic. Der Soundsetblock be¬ 
findet sich rechts oben im Bild. Links 
im Soundsetblock finden Sie die Laut¬ 
stärkehüllkurve und rechts die Ton¬ 
hüllkurve (getrennt durch die Funk¬ 
tionssymbole). Über den Funktions¬ 
symbolen befindet sich die Instrumen¬ 
tennummer. Die erste Zeile der 
Lautstärke- und Tonhüllkurve ent¬ 
spricht der Schrittanzahl im ENV/ 
ENT-Kommando (treppenförmiges 
Funktionssymbol). Die zweite Zeile 
steht für die Schrittgröße und die dritte 
für die Schrittlänge. Die Felder mit der 
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Bezeichnung “CL“ dienen zum 
Löschen der Ton- bzw. Lautstärkehüll¬ 
kurve. Das Feld mit den fünf Uhrsym¬ 
bolen zeigt bei inverser Darstellung an, 
daß die Tonhüllkurve fortlaufend wie¬ 
derholt werden soll. Im Feld links 
neben den fünf Uhren können Sie noch 
den Rauschfaktor angeben (für Schlag¬ 
zeuge usw.). 

Der Editor 

Um in den Editmodus zu gelangen, 
müssen Sie das Feld “EDIT Makro“ 
anklicken. Ein Makro besteht aus 64 
Speicherstellen pro Stimme. Das ent¬ 
spricht 4 Takten, pro Takt also 16 Spei¬ 
cherstellen. Eine Speicherstelle ent¬ 
spricht einer Tonlänge von 1/16 Note. 
Ein Ton wird solange gespielt, bis der 
Computer auf einen neu anzuschlagen¬ 
den Ton trifft, das heißt, die Leerstel¬ 
len (plus der Stelle, die die Daten für 
die Note enthält) bestimmen die Länge 
des Tones. 

Die Noten sehen Sie im Editorfenster. 
Die Zeile in der Mitte des Editorfen¬ 
sters ist die aktuelle Eingabezeile. In 
dem unteren Rahmen der Eingabezeile 
befindet sich ein kleiner Cursor, den 
Sie mit den Pfeiltasten nach links und 
rechts bewegen können. Mit den Pfeil¬ 
tasten auf/ab können Sie innerhalb 
einer Spalte (Stimme) hoch- und run- 
terscrollen. Die Spalte ganz links gibt 
die aktuellen Speicherstellennummern 
an. Die restlichen Spalten sind die No¬ 
tenspalten der einzelnen Soundkanäle. 
Mit den Tasten <F0> und <F7> 
können Sie zum nächst tieferliegenden 
bzw. nächst höherliegenden Taktan¬ 
fang blättern. Taktanfang sind die 
Speicherstellen 0,16,32,48. Mit den 
Tasten <F1 > ,<F2> ,<F3> lassen 
sich die einzelnen Spalten zum Editie¬ 
ren anwählen, das heißt, auf Druck der 
Taste <F2> gelangen Sie mit dem 
Cursor in Spalte 2 (Stimme 2) usw. 


Abb. 1: 

Der Soundmanager 
bietet Ihnen viele 
Möglichkeiten, 
sich als Komponist 
zu betätigen 

Eine Speicherstelle kann folgenderma¬ 
ßen aussehen: 

C#2 35 

Das heißt im Klartext: Note C# 
(C # = Halbton über C), Oktave 2, In¬ 
strument 3, Lautstärke 5. 

D-5 AB 

heißt: Note D, Oktave 5, Instrument 
A, Lautstärke 11 (hex B). Pausen wer¬ 
den erzeugt, indem man irgendeine 
Note eingibt und Instrument und Laut¬ 
stärke auf 0 setzt. 

Die Noten werden über die Tastatur 
eingegeben. Es befinden sich zwei 
Oktaven darauf. Über die Tasten 
Q,W,E,R,T,Y,U werden die Noten 
C,D,E,F,G,A,H eingegeben; über die 
Tasten 2,3,5,6,7 jeweils die Halbtöne 
#C,#D,#F,#G,#A. Eine Oktave 
tiefer werden die Töne über die Tasten 
Z,X,C,V,B,N,M und S,D,G,H,J er¬ 
reicht. Mittels den Tasten <F8> und 
<F9> lassen sich alle 8 Oktaven an¬ 
wählen. Die tiefste Oktave ist Oktave 0 
und die höchste trägt die Nummer 7. 
Der niedrigste anzuwählende Wert ist 
logischerweise 1, da die Oktave 0 dann 
über die untere Tastaturreihe zu errei¬ 
chen ist. Die Statusanzeige für die 
aktuelle Oktave (“Okt:“) befindet sich 
unter dem Feld für die aktuelle Makro¬ 


nummer (im linken, unteren Bild¬ 
schirmviertel). Links neben dieser 
Statusanzeige befindet sich die Laut¬ 
stärkeanzeige (“Vol:“). Der Laut¬ 
stärkewert wird mit den Tasten 
<SHIFT> <F8> und <SHIFT> 
<F9> verändert. Dieser Wert gibt 
die Lautstärke bei der Eingabe der 
Noten an. Ist der Wert gleich Null, so 
wird der alte Wert in der Speicherstelle 
beibehalten. So lassen sich z.B. Melo¬ 
dien mit komplizierten Lautstärke- 
Veränderungen auf anderer Tonlage 
eingeben, ohne daß man die Lautstär¬ 
kewerte noch einmal ändern muß. 
Instrumenten- und Lautstärkewerte 
lassen sich natürlich auch nachträglich 
direkt über Tastatur ändern, indem 
man den Cursor aus der Eingabczeile 
auf die entsprechende Stelle positio¬ 
niert und den Wert dann eingibt. Dabei 
sollte man natürlich nicht die Tasten 
vom 1 Oer-Block verwenden, da diese 
anders belegt sind. 

Mit <F4> läßt sich eine Stimme in 
den Buffer kopieren. Mit <SHIFT> 
< F6 > wird der Buffer in eine Stimme 
kopiert. Der Editor wird mit <F5> 
verlassen. Um nicht immer den Editor 
verlassen zu müssen, wenn man ein 
neues Instrument braucht, läßt sich das 



Speicherstellen 

Länge 

Me 

1 

1/16 


2 

2/16 = 1/8 

•r 

3 

3/16 

J: 

4 

4/16 = 1/4 

J 

6 

6/16 

J. 

8 

8/16 = 1/2 

d 

12 

12/16 

d. 

16 

16/16 = 1 

o 


Notmlängn Hit i.B. S/l(, 7/11,,,. sitzen sich ans wti fotn ivsamtn: 
S Speicherstellen: S/1S Notenlänge: VlStl/16 (3/1SW1I): 


Abb. .?: Für Einsteiger hier noch einmal die Notensymbole mit dem benötig¬ 
ten Speicherplatz 
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Oktav« 3 


Oktav« 4 


Abb. 4: 

Eine komplette 
Tonleiter 
_ zum Üben 


Instrument auch mit den Tasten < / > 
und < \ > auswählen. 

Zusammenhänge eines Liedes: 

POSITION 

Das POSITION-Fenster befindet sich 
im mittleren Teil des Bildschirmes, auf 
der rechten Seite. Wird ein Lied abge¬ 
spielt, so geht der Computer alle POSI- 
TIONs (0-63) nacheinander durch und 
holt sich die Werte für die Makros, die 
er spielen soll. 

Beispiel: POSITION 8 
MakroVl 5 
Makro V2 4 
Makro V3 2 

Das heißt im Klartext: Spiele an Posi¬ 
tion 8 die Melodie aus Makronummer 5 
Stimme 1, die Melodie aus Makronum¬ 
mer 4 Stimme 2 und die Melodie aus 
Makronummer 2 Stimme 3. Das hat 
den entscheidenden Vorteil, daß man 
eine Melodie mit unterschiedlichen 
Schlagzeug oder Baßmelodien kombi¬ 
nieren kann, ohne daß man die Haupt¬ 
melodie ein zweites Mal einzugeben 
braucht. Oder man kann das gleiche 
Schlagzeug und den gleichen Baß ver¬ 
wenden und in der Hauptmelodie vari¬ 
ieren. Das geht natürlich nur solange, 
wie es der Wohlklang zuläßt. 

Übersicht der Tastenfunkionen 

2,3,5,6,7,Q,W,E,R,T,Y,U: 
Editmodus: Eingeben und Spielen 
eines Tones in der Oktave n, 
sonst: Spielen eines Tones in den Okta¬ 
ven. 

S,D,G,H,J,Z,X,C,V,B,N,M: 
Editmodus: Eingeben und Spielen 
eines Tones in der Oktave n-1, 
sonst: Spielen eines Tones in der Okta¬ 
ve n-1. 

Pfeiltasten: allgemein: Editorcursor 
links/rechts bewegen, auf/ab scrollen 
< SPACE >: Editmodus: Speicher¬ 
stelle löschen 


‘/‘ und ‘/‘: allgemein: Instrument an¬ 
wählen 

<SHIFT> + Pfeiltaste auf/ab: Edit¬ 
modus: Speicherstellen n bis 63 hoch- 
/runterverschieben. Vorsicht: n. bzw. 
63.Speicherstelle wird gelöscht. 

<SHIFT>+ <.>(vom 10er-Block!): 
allgemein: Stimme löschen 
<F0>,<F7>: allgemein: zum 

nächst höher- bzw. tieferliegenden 
Taktanfang 

< Fl > , <F2>, <F3>: allgemein: 
Editcursor zur Spalte 1,2,3 
<F4>: allgemein: Stimme in den 
Buffer kopieren 

<F5>: Editmodus: Abbrechen des 
Editmodus, 

Playmodus: Abbrechen des Playmodus 

<SHIFT> + <F6>: allgemein: 

Buffer in die Stimme kopieren 

<F8>,<F9>: allgemein: Oktave 
einstellen 

<SHIFT> + <F8>, <SHIFT> + 
<F9>: allgemein: Grundlautstärke 
einstellen 

Allgemeine Hinweise 

Wenn Sie das Feld “Ext“ anklicken, 
wird das Programm beendet. Mit der 
Tastenkombination < CONTROL > + 

< ENTER > können Sie wieder ins 
Programm einsteigen, ohne daß Daten 
verlorengehen. Sie können also in den 
Basic-Modus gehen, um Disketten 
nach Speicherplatz zu untersuchen 
oder um nachzuschauen, wie der Song 
heißt, den Sie laden wollen. Auch 
wenn Sie durch einen Programm fehler 
ins Basic gelangen (z.B. falls ein fal¬ 
scher Song- oder Soundsetname ange¬ 
gebenen wurde und der CPC die Datei 
nicht lesen kann), so können Sie mit 

< CONTROL > < ENTER > wieder 
ins Programm zurück. Die Speicher¬ 
größe (0-15 Makros) ist so bemessen, 
daß man fast alle normalen Notenvor¬ 
lagen eingeben kann. Ein abgespei¬ 


cherter Song nimmt dabei 10 Kilobyte 
(unkonvertiert) ein. 

Der Songkonverter 

Der Konverter wird ebenfalls mit 
RUM “SM gestartet. Er zeigt sich ähn¬ 
lich dem Soundmanager. Nach einer 
kurzen Initialisierungsphase erscheint 
links oben ein Pfeil, der sich mit dem 
Joystick steuern läßt. Es können vier 
Namen eingegeben werden; zwei 
Quellnamen und zwei Zielnamen. Die 
Quellnamen (Source) sind die des Lie¬ 
des vom Soundmanager und werden 
wie gewohnt eingegeben. Die Handha¬ 
bung der Zielnamen ist ähnlich. Wird 
nur ein Songname angegeben, so wer¬ 
den die Hüllkurven unter dem gleichen 
Namen gespeichert wie die Songdaten. 
Wird kein Songname aber dafür ein 
Soundsetname eingegeben, so werden 
nur die Hüllkurven gespeichert. 

In der Mitte des Bildschirms befindet 
sich noch ein kleines Feld mit einer 
Zahl. Wenn Sie dieses Kästchen an¬ 
klicken, können Sie über die Tastatur 
eine neue Zahl eingeben. Dieser Wert 
gibt an, wann das Lied neu beginnen 
soll. Soll ein Lied nur die Positionen 
0-11 durchspielen (max. 0-63, wie im 
Soundmanager), so geben Sie den Wert 
“11“ an. Falls Sie den Wert mal ver¬ 
gessen sollten, so läßt er sich auch 
nachträglich im Basiclisting, das die 
Hüllkurven enthält (siehe unten), in der 
Variable mp ändern. 

Wenn Sie das Feld “LOAD and 
WORK“ anklicken, fängt der CPC an 
zu arbeiten. Keine Panik, wenn Sie se¬ 
hen, daß der Bildschirm ein wenig zer¬ 
stört wird - der Bildschirmspeicher 
wird vom Programm als Speicher be¬ 
nutzt. 

Erzeugt wird eine neue Binärdatei, die 
nur die reinen Musikdaten enthält und 
dementsprechend kurz ist. Außerdem 
wird noch ein Basicprogramm abge¬ 
speichert, in dem einige wichtige Da¬ 
ten und die Hüllkurvenkommandos ste¬ 
hen. 

Wenn der Konverter fertig ist, können 
Sie mit dem “Drei-Finger-Griff“ 
einen Reset auslösen. Nun laden Sie 
das Programm PLAY.BAS, und mit 
MERGE“ NAME. BAS“ wird ein 
neues Programm erzeugt. NAME. 
BAS steht hier für den SOUNDSET¬ 
NAMEN (Target) aus dem Konverter. 
Dieses neue Programm kann jetzt für 
eigene Software verwendet werden. Es 
lädt zu Beginn die konvertierte Binär¬ 
datei “NAME.DAT“ nach, und mit 
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GOSUB 460 läßt sich das Lied auf- 
rufen. In Zeile 630 wird die Taste 
Nr. 12 abgefragt (<F5>), die zum 
Rücksprung ins Hauptprogramm führt. 
Sie kann z.B. durch Taste Nr. 76 
(Feuerknopf) ersetzt werden. 

Variablenliste “PLAY.BAS“ 

tpO 

enthält alle Tonperioden 

rs() 

Rauschfaktoren für die Instrumente 

i,k 

Schleifenvariablen 


a,b,c,d 

Hilfsvariablen 

mp 

Ende eines Liedes 
sgname$ 

Name der nachzuladenden Binärdatei 
(konvertiertes Lied) 

ad(), adl, ad2 

enthält den Zeiger auf den Zeiger für 
den Makroanfang 

adrO, adrl , adr2 

enthält den Zeiger auf die Note, die ge¬ 
spielt werden soll 


plO, pl 1 , pl2 

Zähler (von 0 bis mp - > POSITIONs) 
iO, il, i2 

Zähler (wenn gleich 64, dann Makro¬ 
ende) 

plaO, pla 1, pla2 

Adressen, die die zu spielenden Ma¬ 
kronummern enthalten 

nrO, nrl, nr2 

enthält die aktuell zu spielende Makro¬ 
nummer 

(Andreas Stroizek/jb) 


für 464-664-6128 



20 ' = Starter jum Soundmanager 6 Konverter = 

40 ' 

SO MODE 3 

60 INK 1,24:1 NK 2.U: [NK 3,11 
70 INK 0,1:BOROER 1:PEN 2:PAPER O 
80 mm=15 
90 maemmil 
100 ml=rna*64 

110 LOCKTE 12,8: PRINT "-- 

120 LOCKTE 12,7: PEN 1: PR INT" Se 1 ec 11 or>; ' 

130 LOCKTE 12,10:PRINT"<1> Soundmanager 
140 LOCKTE 12,12 PRINT <2> Konverter“ 

150 LOCATE 12,24;PRINT"1988 by Andreas Stroicjek" 

160 a$= I N KEYS : IF a$='"TMEN 180 ELSE ON INSTR< 1 I2',aS)GOTO 180, 
340 

170 GOTO 160 

180 SVMBOL AFTER 2S2 

190 SYMBOL 252.0.64,48,60,31,31.15,14 

200 SYMBOL 253,3.3,15,15,63,63,256,255 

210 SYMBOL 254,0,128,128.170.255.170,128 128 

720 SYMBOL 255,0.56,84,146,158,130,68,56 

230 FOR 1=0 TO 9 

240 KEY 1.CHR*<1*214) 

250 NEXT 

260 KEY DEF 76,1,73 

270 KEY OEF 7.0.46,228 

280 KEY DEF 4,0,0,220 

290 KEY OEF 11,1,222,210 

300 KEY OEF 3.1,223,211 

310 KEY 12,“GOTO 650"1CMRS<13) 

320 a$; "SM36 1 ' : b$="Soundmanager V3.6" 

330 GOTO 390 

340 SYM80L AFTER 254 

350 SYMBOL 255,0.64,48,60.31,31,15.14 
360 SYMBOL 254,102,0,102,102,102.102,62,0 
370 KEY 12,“RUN"1CMR${13) 

3B0 a$=“KONVERT":b*= "Song-Konverler" 

39 0 LOCATE 4,16:PRINT"Loadlng. , , 'CHR$(15 >CHR*(2)bSCHR$<15 >CMR$ 
400 MEMORY &A67B 

410 OPENOUT"d MEMORY H1MEM-1 CLOSEOUT 
420 MEMORY UNT (MIMEM-9 1 -19 2-3*ma-2 > 

430 POKE UNT(HIMEMil),mm 
440 RUN aS 


:22481 

(23381 

(22481 

1117] 

(506) 

11346] 
I 1362 ] 

[306] 

I 789] 
(4591 
(14451 
[2674] 
(3239] 
[2106] 
[3469] 
[3354] 

1421] 

11396] 

[2428] 

( 1 786 ] 

[2163] 

[2339] 

[492 ] 

[ 1001 ] 

[350] 

[950] 

I 1409] 
!1068] 
[901 ] 
[1129] 
(1616) 
[1832] 
[494] 

[1410] 
11731] 
[2009 ] 
[1420] 
[3038] 
[51261 

[441 ] 
[2613] 

[ 1294 ] 
[1264] 
[41 ] 


60 
90 
100 
110 
120 
130 
140 
150 
160 
1 70 
180 
190 
200 
210 
220 
230 
240 
250 


SOundmanager V3.6 = 

(c ) 1989 PC AMSTRA0= 
von = 

Andreas Strolczek = 


DEFINT a-j 

mm=PEEK(UNT(HlMEM.1}> 
adraUNT[H1MEM+2) 

RESTORE 

ad r es= 6B0C 7 

adrea2=UNT(edresil4) 

FOR 1= ad res TO UNT(ad res•53) 

READ a • 

POKE 1,4 
NEXT 

DATA 66.&40,&DD,&5E,60,&DD,466,41,436,40,423,410,4F0.4C9 
DATA 406,406.4C5.400.46E,4A,400,466,4B,4DO,4SE,4C 
DATA 400,456,4D.43E,480,41,42E,40,4ED,4B0.4EB.41,402,47,49 
DATA 4E8,49,41F.430,4FI,400,42B,40D.42B,4C1,410,40B,4C9 
tS="Q2W3ER5T 6Y7UZ SXOCVGBHNJM " 


[1354] 
[ 286] 

[1920] 
[286] 
[1522] 
[ 186] 
[B00] 
1286] 

[1354] 
[117] 

[ 553 ] 

[ 1377 ] 

[ 769 ] 

[621 I 

[ 303] 

[1016] 

( 5431 

[ 428] 

[ 157 ] 

[350] 

[ 1910 ] 

[2632] 

[2089] 

[2387] 

[2340] 
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260 FOR 1a214 TO 223 
270 c$=c$*CHR$(1) 

280 NEXT 

290 FOR 1=240 TO 245 
300 C*=c$lCHRS(1) 

310 NEXT 

320 c$=c$l “ " 1CHR$( 228 ) + " 1 4890AF"*CHR$( 210 ) *CNR$( 211 ) 1 ' /\ " 

330 10=0:11=0:12=0 

340 nr0=0:nr1=0:nr2=0 

350 plO=0:pl1=0:p12=0 

360 Ins=l:ok=3:1nro61;*=l50 

370 nia=mrn+l:ml=mn*64:m2=ml*2 

380 01M e(15,4,2),f(39,24),h(63.2),74(25S> 

390 OIM J(63).te(15),tp(255).t(23),fk(63),rs(15) 

400 FOR 1=16 TO 63 
410 J(1)=9 

420 NEXT 

430 y(l>=-l:y(2)=l:y(4)=-l:y(5>=l:y(7)«-l;y(8)=l 
440 x(3>=-1:k(4)=-1:x(s)=~!:x(6)=1:«<7)=1:x(B)= 1 
450 j(l}=l;J(2)=2:j(4J=3:J(5)=4 

4 60 J<6)*5:j(6)=6:j(9)=7;j(10)=B 

470 FOR 1=1 TO 15 

480 GOSUB 1760:GOSUB 1B20 

490 NEXT 

500 FOR 1=0 TO 2 

510 p(I)=UNT<adrl1 «64) 

520 ad r(1,0)=UNT(adr.192*1*3*ml) 

530 adr(I.1>=uNT(adr(1,0]lml) 

540 adr(1,2)=UNT(adr(1,0)*m2) 

550 NEXT 

560 FOR 1=0 TO 2 

5 70 ma< 1) = UNTUdr(2.2)tmllma*1 ) 

580 NEXT 

590 FOR 1=ma(0)TO UNT(ma(0)>ma»3) 

600 POKE 1,0 
610 NEXT 
620 ' 

630 'Bi 1dachlrmaufbau 
640 ' 

650 MOOE 1:PEN l 
660 mnr=0 
670 RESTORE 700 
660 REAO x,y,J,k 

690 rF x < 2 5 5 TUEN GOSUB 6840:GOTO 680 

700 DATA 16,5,1,1,16.5,1,3,16.5,1,5 

710 DATA 23.5,17.1,23.5,17.3,23.5,17,5 

720 DATA 3,7,25,3.5.7,21,3.5,7.31,3.7,3.30,1 

730 DATA 8,3.20,1,23,3.1,10,23,3,1,12 

740 DATA 10.6,27,10.4,6,36,10 

750 DATA 14.3,1,IS.14,5.1,19,14,5,1,21 

760 DATA 25, 11. 15,16,8,11, 18. 15,B, 1 1,25,15.25,3.15.19 
770 DATA 3,5,24.10,255', 1, 1 , 1 
780 ' 

790 WINDOW 25,25,11,14 
800 PRINT"Ext“ 

010 WINOOW 2.14,2.9 
820 PRINT "LOAO SONG":PRINT 
830 PRINT"SAVE SONG":PRINT 
840 PRINT“LOAD SOUNOSET' 

850 PR INT“ SAVE SOUNDSET'' 

B60 wrNDOW 2,22,11,14 

870 PRINT"SONGNAME :-" 

880 PR I NT ” SOUNOSET NAME :-" 

890 WINDOW 28,35,11,15 

900 PRINT 'POSITIONMakro VIMakro V2Makro V3“ 

910 WINOOW 2,11,20.25 
920 PRINT PLAY SONG " 

930 PR INT"PLAY Makro' 

940 PRINT'EOIT Makro' 

950 WrNDOW 1,40,1,25 

960 LOCATE 18.2.PRINT 'CL"CHR$<9>' Inst STRING$(11,9)"CL" 
970 LOCATE 2,16:PRINT MaKroNr.: 00" 

980 LOCATE 2, 18: PRINfVol : Okt 

990 FOR 1=0 TO 2 
1000 LOCATE 26,14214 
1010 PRINT CHR${1*253) 

1020 NEXT 

1030 WINDOWUl,16,17,16,24 
1040 WINOOW42,19,24,16,24 
1050 WINOOW*3,26,31,16,24 
1060 WINOOW44,33,38,16,24 
1070 WINOOW4S,28.37,2.3 
1080 WINOOW46,37.39,12 , 15 
1090 WINOOW»7,18.38,4.9 


[ 648) 

[1262] 

[350] 

I 9 70 ] 

I 12621 

[350] 
13214] 
[ 7481 
[1198] 
[1303] 

[977] 

[1900] 

[2242] 

[1773] 

[960] 

[818] 

I 350 ] 
[2977] 
(1823) 
( 2100 ) 
[1604] 
[310] 
[1139] 
[350] 
[471 ) 
[832] 
(1710] 
[1128 ] 
( 1012 ) 
[350] 

[471] 

[ 406 J 
1350) 
[1433] 
(238) 

( 350) 
[117] 
[1156] 
[117] 

[ 1036) 
[538] 

[ 735] 
[632] 
[2057] 

[ 1699] 

(1531] 
[1979] 
[1476] 
[1123] 
[2039] 
[2666] 
(825) 
[117] 

[1428] 

[ 577 ] 

( 1010 ] 
[989] 
[1717] 
[1636] 

[1722] 

[1302] 

[ 1959 ] 
[2167] 
(1306) 
[3929] 
[1188] 
[1647] 
[1918] 

[1090] 

l1024) 

[3150) 

[1919] 

[1815] 

(471) 

[908] 

[1339] 

[350] 

[1512) 

I 1372 ] 

[1680) 

[1681] 

[1004] 
[15491 
[1367] 
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FAst BAsic COMpiler 


r~Programm 



«letzt neu: 

BASIC-Compiler für CPC 464/664/6128 
Der Turbo-Antrieb für Ihre BASIC-Programme! 


Haben auch Sie sich schon immer ge¬ 
wünscht, daß Ihre selbstgeschriebenen 
BASIC-Programme schneller laufen? 

Mit dem BASIC-Compiler von DMV ist das 
nun kein Problem mehr, denn 


- der Compiler hat den vollen Sprachumfang des 
BASIC 1.1 (CPC664/6128) 

- das compilierte Programm ist auf jedem CPC 
lauffähig 

- unterstützt Integer- und Fließkomma- 
Arithmetik 

- kompatibel zu Vortex-Peripherie incl. Nutzen 
der RAM-Disk 

- Programme, die spezielle BASIC l.l.-Befehle 
beinhalten, sind auch auf dem CPC464 lauffä¬ 
hig (außer FILL und MASK) 

- der Compiler arbeitet unter CP/M, das heißt, 
alle CB'M-Dienstprogramme können genutzt 
werden. 

- bis 17 KB Quellcode können problemlos compi- 
liert werden 

- einzelne Programmteile können ebenfalls com- 
piliert werden (z.B. wichtig bei Nachladepro¬ 
grammen) 

- die ausführliche deutsche Bedienungs¬ 
anleitung macht Sie auf einfache Weise mit 
dem Umgang des Compilers vertraut. 

- viele Beispielprogramme veranschaulichen die 
Arbeitsweise des Compilers und zeigen die Ge¬ 
schwindigkeitsvorteile auf. 

- das Programm ist in 100% Maschinencode ge¬ 
schrieben 



Der BASIC-Compiler ist nur auf 3“-Diskette 
erhältlich. 


Best.-Nr.: 20.9 


69,- DM (unverbindliche Preisemplehlung) 

Wenn Sie über den DMV-Bestellservice bestellen gilt folgendes: 
Inland: Ausland: 

Einzelpreis 69,- DM Einzelpreis 69.- DM 

zzgl. Versandkosten 3,- DM zzgl, Versandkosten 5,- DM 


Endpreis 


72,- DM Endpreis 


74,- DM 


1100 FOR t=l TO 9 

1110 ON t GOSUB 2250,6400,2630,4240,2720,1000,6240,1680,3460 

1120 NEXT 
1130 sg$B”’; 

1140 ' 

1150 'Hauptschie 1 fo 
1160 ' 

1170 PRINT CHR*(23)CHR$tl); 

1180 PLOT-2,-2,2 
1190 *9=0:yg=384 
1200 GOTO 1270 

1210 J=)(J0Y(0)):IF J = 0 TUEN 1340 
1220 »■ xg : ya = yg 

1230 xg=(xg+x(J)*16+640)M0D 640 
1240 yg=tyg-y( 3 )»16+400)MOO 400 
1250 MOVE xa,ya+16:PRINT CMR*(5)CHRJ(252); 

1260 IF J = 9 TUEN GOSUB 3550 

1270 MOVE *g,yg*16:PRINT CHR*(5)CHR*t252): 

1280 FOR 1=0 TO i 
1290 *=*-1 

1300 IF JOV(0)=0 THEN 1=151 
1310 NEXT 
1320 GOTO 1210 
1330 ' 

1340 1=150:ed=0:G05UB 3670 
1350 IF a = 0 THEN 1410 
1360 IF a>27 THEN 1390 

1370 0N 4 GOSUB 5160.5160.5160,5160,5160,5160,5160.5160,5160,5 
160,5160,5160,5150,5150,5150,5150,5150,5150,5150.5150,5150 515 
0,5150.5150,4330,4560,4560 
1380 GOTO 1400 

1390 ON a-27 GOSUB 4560,4850,1520,4750,4340,1650,1670,3860,414 
0,4220,4270,1520,1520,1520,4450.1520.1520,1520.1520,1520,1520. 
1520,1530,1490,2900,2890 

$U52) F TEST<><a * Z,yfl * M1<2 ™ EN M0VE «9.79+16: PRINT C«R$(5)CHR 

1410 GOTO 1210 
1420 

1430 'Exlt 
1440 1 

1450 MODE 2:GOSUB 6990:ENO 
1460 ' 

1470 'Grundlautstaorke einstellen 
1480 ■ 

1490 vol=MIN(vOl+1,15) 

1500 LOCATE 6,18 
1510 PRINT MEX$tvol) 

1520 RETURN 

1530 voi=MAX[vol- 1 , 0 ) 

1540 GOTO 1500 
1550 ' 

1560 Rauschfaktor «instellen 
15 70 • 

1580 rat Ins) = (ratins)»s»32)MOO 32 

1590 LOCATE 28,2 

1600 PRINT HEX»<rat ins),2) 

1610 RETURN 
1620 ' 

1630 Okatve einatellen 
1640 ’ 

1650 ok=MAX(ok- 1 . 1 ) 

1660 GOTO 1680 
1670 ok=MIN(ok+l,7) 

1680 LOCATE 13,18:PRINT USING"•";ok 
1690 RETURN 
1 700 ’ 

1710 Ctear Instrument 
1 720 1 

1730 I=1os:GOSUB 1760 
1740 GOSUB 2 730:GOTO 2 180 
1750 ' 

1760 tet 1 ) = 1 :rs|i >=0 
1770 FOR j=2 TO 4 
1780 GOSUB 1890 
1790 NEXT 
1800 RETURN 
1810 

1820 FOR 3=0 TO 1 
1830 GOSUB 1890 
1840 NEXT 
1850 RETURN 
1860 ' 

1870 t=in»;GOSUa 1820 
1880 GOSUB 2730 GOTO 2180 
1890 e(i, 3 , 0 )=l 
1900 e{|, 3 ,1)=0 

1910 e{i ,3,2)u1 
1920 RETURN 
1930 ' 

1940 Sounds aendern 
1950 

1960 0=15:GOTO 2020 

1970 0=239:GOTO 2020 

1980 0=15;1=0:x=18:GOTO 2030 

1990 0=0:t = ~15:x=22:GOTO 2030 

2000 0=99:i»-99:GOTO 2030 

2010 0=255 

2020 i=1 

2030 k=k-16 

2040 J=k\5 

2050 y =3 *2 *4 

2060 k=k MOO 5 

2070 x=k*4r18-2»(k>l) 

2OB0 ' 

2090 a=e( I na,k,J)+a 

2100 IF a)o TMEN a=1 ElSE IF a<1 THEN a=o 
2110 LOCATE x,y:PRINT US ING"«»•”|a 
2120 b( ins, k, 3 )=n 

2130 GOTO 2180 
2140 te{ins)=-t«(ins) 

2150 LOCATE 31,2:i=-24.(te(ins)<0) 

2160 PRINT CMR$(1 )STR ING$[S,255)CHR»C1 ) 

2170 TF JOY(0)>15 THEN 2170 

2 J® a i’=j n s:ENV 1 ,e(i, 0 . 0 >,o(t, 0 . 1 ),e(l, 0 , 2 ),e(t, 1 . 0 ).e(*.l,l). 

2190 ENT t»t«(»),«(1,2,0),o(t,2,1),*(1.2,2),«(i,3,0),e(i,3,1). 
e(i,3,2),e(i,4,0),e(i,4,l),e(l,4.2) 


1 5 78 ) 

(27141 

[350) 

( 452 1 
[117] 
( 866 ) 
1117) 

[ 1919] 
I 798 1 
[1128) 
1 357 ) 
11326] 
£ 798) 
(1864] 
(2230] 

[2704] 

[694] 

[2090] 

[463] 

[ 746 ) 

[1166] 

[350] 

[305] 

[117] 

[1382] 

[546] 

[ 724] 
16355] 


[ 387 ] 
[6898] 


[3433] 

1305] 

[117] 

1422] 

(117) 

(1415] 

(117) 

[1972] 

(117) 

[1290) 
[ 520] 
[940] 
[555] 
[1164] 
[399] 
1117] 
(1176) 

(UM 

(1625) 

[521) 

[1311] 

[ 555] 
[1)7] 

£ 1899] 
[117] 
[422 ] 
[395 ] 
[2 76 ] 
[949 1 
[ 555 ] 

[117] 
[2250] 
[117] 
[945 ] 
[1781] 
1117] 
(2561 
I 708] 

[873] 

[350] 

[ 555 ] 
[1171 
[ 699 ] 
[873! 
[350] 

I 5S5 ] 
1117] 

[1013] 
11281 ] 
[6561 

[597| 

[ 793] 

[ 555 ) 

[117] 

[1719] 

[117] 

[ 640] 

( 1088] 

( 943) 

(1345) 

[829] 
[3181 
[423] 
(401 1 
[ 538 ] 
[ 866 ] 
[409] 

11052] 
[117] 

[ 1246 ] 

;2705] 

C908] 

[993] 

[ 343] 
(956) 

[1376] 
[2253] 
(1380] 
[2935] 

[4103] 


Ltsting Sound 


Bitte benutzen Sie die Bestellkarte 

DMV-Verlag 

Postfach 250 ■ 3440 Eschwege 











































Programm—i 


2200 RETURN 
2210 ' 

2220 ' Po» 11 lona/Mak ros aendern 
2230 ’ 

2240 ps=(ps*9164)MOD 64 
2250 L0CATF.»6,1 , 1 

2260 LOCATE 37,11 PRINT USING"»•"iDS 
2270 FOR 1*0 70 2 

2280 PRINT»6,USING •»"jPEEK(UNT(p(>).ps) ) 

2290 NEXT 
2300 RETURN 
2310 

2320 k = k- 12 

2330 b=UNT( p { k ) •ps) 

2340 •=(PEEK(b)»34m«)M0D ma 

2350 POKE b,a 

2360 LOCATE 37,124k 

2370 PRINT USING »»" ja 

23B0 RETURN 

2390 ' 

2400 MakroNr. aendern 
2410 

2420 itmr!(*fir»sMa)MOÜ ma 

2430 IF mnr< 10 TMEN a*="«"ELSE a*="*«" 

2440 LOCATE 12,16 

2450 PRINT CHR*<-48»(a*= '»">>USING at;mnr 
2480 t=l 
2470 RETURN 
2480 ' 

2490 Worte aendern 
2500 ' 

2510 t=0.s=0:r=mnr 
2520 PEN 2:GOSUB 3580 
2530 J = JOY{0) 

2540 IF 3=16 TMEN 1=150 ELSE IF j<16 TMEN 3=0;PEN 1 - QOSUB 3580 

:GOSUB 2580:RETURN 

2550 IF j=17 TMEN s=l:GOSUB 3580 

2560 IF j=18 TMEN s=-l:GOSU8 3580 

2570 GOTO 2530 

2580 IF t THEN IF r=mnr THEN RETURN ELSE GOSUB 2630 
2590 RETURN 
2600 

2610 Mop Itorausicknitt daratellcn 
2620 ’ 

2630 k=v 

2640 FOR v=0 TO 2 
2650 GOSUB 3960 
2660 NEXT 
2670 v=k 
2880 RETURN 
2690 ’ 

2700 'Soundtabe1Ie doratollen 
2710 

2720 LOCATE 26,2tPRINT HEX*(lns) 

2730 LOCATE07.1,1 
2740 FOR 1*0 TO 2 

2 750 PRINT»7,USING"*»»";e<lns,0,1) ; 

2 760 PRINT*7,CHR$(9)USING"*•«" | e( Ina, 1, I ) ; 

2770 PRINT»7,STRING${3,9) ; 

2 780 PRINT »7,USING“«»»";e(I 0 9,2,1)1 
2 790 PRINT«7,CMR$(9)USING'»*»•• ;o( Ins, 3, 1 ) ; 

2 800 PRINT» 7, CHR»(9>US!NG "*»e" ; e( Ina, 4, i ) 

2810 NEXT 

2820 PRINT»5,CHR$(30)HEX$(ra(Ina),2)CHR$(9); 

2830 1=-24»(te(tns)<0) 

2840 PRINT»5,GHR$(1)STRING$(5,255)CHR$(1) 

2850 RETURN 
2860 ' 

2870 Instrument aondern 
2860 ' 

2890 9=1:GOTO 2910 

2900 s=-l 

2910 1na=1no* o 

2920 IF 1na>15 THEN 1na = l 

2930 IF 1na<1 THEN ln»=15 

2940 GOTO 2720 

2950 ' 

2960 Namen eingeben 
2970 ' 

2980 y=11:GOSUB 3000:sg*=0*.RETURN 
2990 y=13:GOSUB 3000:sd*=6* RETURN 
3000 b$= "" : PEN 2 

3010 LOCATE 15 , y : PFf I NT"-“ 

3020 IF JOV(0)>0 THEN 3020 
3030 GOSUB 6990 
3040 FOR 1=1 TO 8 

3050 a$=UPPER$( INKEY*) : IF at=" "THEN 3050 Ei.SE a=ASC(a*) 

3060 IF 4=127 THEN 1 »MAX (I-2,0):bS=LEFTStb$,MAX(LEN(b*)- 1,0) ) 

:GOTO 3110 


3070 IF a=I3 THEN !=8:GOTO 3100 

3080 1F<4>64 AND a<91)OR(a>47 AND a<S8)THEN 3090 ELSE 3050 

3090 b$=b$4a$ 

3100 IF 1=8 TUEN PEN 1 

3110 LOCATE 15,y:PRlNT b$4STRING$(8-LEN(b*>,45) 

3120 NEXT 
3130 RETURN 
3140 ' 

3150 ’load/sa.f song 
3160 ' 

3170 1=1 

3180 IF 9Q»=“"THEN RETURN 
3190 y = 2:x= 2:GOSUB 3260 
3200 IF 1 THEN SAVE ag*+". 

9*4",bln",ad r 

3210 IF 9d$=""THEN 9d*=9fl* 

3220 GOSUB 3350 
3230 IF t TMEN sd*="" 

3240 GOSUB 2630:RETURN 
3250 1=0 GOTO 3180 

3260 LOCATE 2,y4)*2:PEN x.IF 1 THEN PRINT'SAVE" ELSE PR INT"LOA 
0" 

3270 RETURN 
3280 ' 

3290 load/aave Soundset 
3300 

3310 1=0:GOT0 3330 


,D.adr,19249»ml4ma*3 ELSE LOAD 
1 ELSE 1=0 


I 555 1 
11173 

(2294) 

! 117) 

£ 705 1 
[330 1 
[ 1554 1 
[411) 
(2418) 

1350] 

I 655) 
1117] 

( 3891 
11781] 

[1514] 
1 2501 
(6681 
(684] 

1 5551 
11171 

1 938 1 
(117] 
12085] 
( 1513] 
14 79 ] 
126111 
[2 761 
[ 555 1 
(117) 

[ 12 2 7] 

(117! 

(6351 

[12161 

(8921 

[4602] 

[17191 
[1666] 

[ 353 1 
(2747] 

( 555 1 
(1171 
[2800] 
[1171 
[1511 
[11601 
[993 ] 
[350] 
[556] 

[ 555] 

[117] 

[2768] 

[117] 

[2168] 

[604] 

1471 | 

[ 1280! 

[22121 

[1367] 

[1245] 

[2034] 

[20331 

[ 350] 

[2414] 

[13921 
[1873] 

1 555) 
1117 1 
(1383) 

11171 
(9071 
(4111 
[8201 
[611] 
[15001 
[ 395 ] 

[117] 

1 5963 
11X7) 
[2326] 

(2390) 
1249 1 
[1614] 
IS 79| 

[10431 
[462] 
[2336] 
[2698| 

[ 194 S1 

[ 19031 

[99! 

[14461 

[37621 

[350] 

(555) 

[1171 

[ 1528 ] 

[117] 

[ 1801 
[1332] 
[942 1 
[33981 

[19451 

[9551 

[795] 

[14281 

£ 396] 

[43401 

[555] 

[117] 

122311 

[117] 

[ 191) 


Listing Sound 


3320 1=1 I180) 

3330 IF BdS=""THEN RETURN [7671 

3340 y=8:x=2[GOSUB 3260 [12261 

3350 IF 1 THEN OPENOUT sd* ELSE OPENIN sd* [1828] 

3360 FOR k*l TO 15 [10931 

3370 FOR j =0 TO 4 [6921 

3380 FOR 1=0 TO 2 (471) 

3390 IF I TMEN WRIT£•9,e(k,J,1} ELSE INPUT*9,e(k,J, 1 ) 13392) 

3400 NEXT 1,J 1411) 

3410 IF 1 THEN WRITE#9,te(k),r»(k) ELSE INPUT»9,te<k).rs(k> (4179) 

3420 NEXT [350) 

3430 IF ) THEN CLOSEOUT ELSE CLOSEIN 11164] 

3440 x=1:GOSUB 3260 [961] 

3450 IF ) THEN RETURN ELSE GOSUB 2720 [1543) 

3460 k=1 na 

3470 FOR Ina=1 TO 15 
3480 GOSUB 2180 
3490 NEXT 
3600 1na=k 

3510 GOSUB 2 2 50:RE TURN 
3520 

3530 'Unterprog.Verzweigung 
3540 


[99] 
[455] 
[855] 
[3501 
I 189] 
1918] 
1117) 
[21771 

3550 ON Mxg\16,yg\16)GOTO 3250,3170,3310,3320,2980,2990,2510. 110587) 

5400,5960,3730,2510.2510,2510,2510,2510,2510,2510.2510,2510,25 

10,2510.2510,2510,2510,2510,2510.2510.2510,2510,2510,2140,2510 

,1870,1730.1450 
3560 RETURN 

3570 ' }?” 1 

3580 k=f(xg\16,yg\16):ON k GOSUB 10,10.10,10.10.10,2420,10.10, [85591 
10,2240,2320,2320,2320.2910,1960,1960,1970,1970.1970,1980,1990 
,2000,2000,2000,2010,2010,2010,2010.2010.10 1580 
3590 FOR 1=0 TO z 
3600 z = z-l 

3610 IF JOY(0)<17 THEN 1=151 
3620 NEXT 
3630 RETURN 
3640 ' 

3650 'Unterroutine Taataturobfrage 
3660 ' 

3670 n$ = UPPER*( INKEY* ) ;1F a* = ""‘THEN a 
3680 a=INSTR(c*,a») 

3690 RETURN 
3700 

3710 Editor 
3720 1 
3730 ed=1 

3740 LOCATE 2,24 : P£N 2:PRINT"EDIT 
3750 GOSUB 3670 
3760 IF a=0 THEN 3810 
3770 IF a>27 THEN 3800 
3780 ON a GOSUB 5160.5160.5160,5160,5160,5160,5160.5160,5160,5 [6355] 
160,5160,5160,5150,5150,5150,5150,51 SO,5150,5150.5150,5150,515 
0.5150,5150,4330,4560.4560 


:RETURN 


: PEN I 


[4631 
[ 746] 

[1654) 

[350] 

[5551 

[117] 

[21351 

1117] 

[30781 

[11671 

1 555 ] 

1117) 

[630] 

[117] 

[417] 

[1964] 

[1186] 

[515] 

[ 754 ] 


3790 GOTO 3810 


[487 ] 


3800 ON a-27 GOSUB 4560,4650,3820,4750,4340,1650,1670,3860,414 (7522] 
0.4220,4270,4940,4870,4380.4450,5140.5140,5140,5140,5140,5140, 
5140,1530,1490,2900,2890 
3810 IF ed THEN 3750 ELSE RETURN 
3820 ed = 0:LOCATE 2,24:PRXNT'EDIT .RETURN 
3830 1 

3840 'Scroll 
3850 

3860 Inr=(ln r + 6 3)MOD 64 
3870 b=1nr 

3880 IF ed=0 THEN IF(xg>224 ANO yg<160)TMEN MOVER -16,0;PRINT 
CHR*(5)CMR$(252); 

3890 CALL Bdrea2,&CV4E,6C6FE.&C6AE.SC60E,&C56E,6C51E,&C4CE 
3900 LOCATE 16,16 

3910 a = mnr»64tB:PRINT USING"»»";b; 

3920 PRINT CHR*(9)z$(PEEK(UNT(adr(0,0)*a))) 
r<0,l)*a>) , 2 ); 

3930 PRINT CHR${9)z$(PEEK[UNT[adr(l,0)+a)>) 
r(l,l).a)), 2 >; 

3940 PRINT CHR*<9)z$(PEEK(UNT(adr!2,0>ta) ))•' "HEX* ( PEEM UN? ( ad [4140] 
r(2,1)*a)),2) 

3950 RETURN 

3960 LOCATE »1.1,1:d=v*2:LOCATE»d.1.1 
3970 a«lnr 


[1578] 
[2646] 
[117] 

[ 732) 
[117] 
(953) 
110421 
[3783] 

[2472] 
[ 44 7 ] 
[2472] 

"MEX*< PEEK(UNT(ad [4339! 
"HEX*(PEEK(UNT(od [3495) 


3980 C=UNT(adr(v,O)+mnr*64) 

3990 GOSUB 4050 

4000 LOCATE»1,1,5:LOCATESd.1,5 
4010 GOSUB 4090 

4020 LOCATE»1,1,7:LOCATE#d,1,7 
4030 GOSUB 4050 
4040 RETURN 
4050 FOR 1=1 TO 3 
4060 GOSUB 4090 
4070 NEXT 
4080 RETURN 
4090 b=UNT(e-*a) 

4100 PRINT»1,USING"»*" ;a; 

4110 PRINT»d,z*(PEEK(b))" "HEX$(PEEK(UNT<o+nl)) .2) ; 

4120 a=(a+1)M00 64 
4130 RETURN 

4140 lnr=(lnr+1)MOD 64 

4150 IF ed=0 THEN IF(xg>224 ANO yg<!60)THEN MOVER-16,0:PR:NT C [37B3i 
HR*[S)CHR*(252); 

4160 CALL ad r es2 ,&C4CE■&C51 £,&C56E,6C6OE,&C6AE,AC6FE,ÄC74E 
4170 b=(lnrF6)M0D 64 LOCATE 16,24 
4180 GOTO 3910 


[555 1 
(1865| 
[ 1058) 
[2669] 
[1015] 
[2076) 

[847] 

(1264) 

[1015] 
( 555 ) 

[ 435] 
(847) 
[3501 
[ 555] 

[1 OB 7 J 
( 628) 
[27851 
t 703] 
1555) 
[13231 


4190 ' 

4200 Cursor llnks/rechta 
4210 1 

4220 cu=(cu + 5 >MOD 6 
4230 IF cu=3 THEN cu=0 
4240 L0CATE»V»2,1,6 
4250 PRINT*v+2,STRINQ*(cu 
CHR*{X JSTRING$(5—cu,154); 
4260 RETURN 
4270 cu=(cutl)MOD 6 
4280 IF cu=l THEN cu=4 
4290 GOTO 4240 
4300 ' 

4310 'Taktwelse bewegen 


Listing Sound 


[3732] 
(222 B ) 
[491] 
[117] 

[ 10851 

[1171 
[991 1 
[583) 
[1170) 

154)CMR*OS>CHH*(2)CHR$( 154)CHR*( 15) (5217) 

15551 

[607] 

[931 

[395] 

1117] 

[1932] 


4'89 PC 45 


li 























r—Proqramm 



«320 ' 

«330 1nr=fk((lnr+17)MOO 6«):00SUB 2630:RETURN 
«340 lnr=fk(lnr) GOSUB 2630RETURN 
4350 ' 

4360 'Speicherjt«11e loeschen 
4370 ' 

4380 b=UNT(adr(v,0)*mnr*64*((lnr*3)M0D 64)) 

4390 C=UNT(b»ml) 

4400 POKE B.OiPOKE C,0 
4410 GOTO 5290 
4420 ' 

4430 ‘Stimme loeschen 
4440 • 

«450 BOROER 11 

4460 b=UNT(adr(v,0)*mnr*64) 

4470 CALL adres.B 

4480 CALL adres,UNT(b*ml) 

««90 CALL adres,UNT(b*m2) 

«500 POKE UNT(b*m2),64 
«510 GOSUB 3960:BORDER 1 
«520 RETURN 
«530 

«540 Stimme wechseln 
«550 

«560 voa-26 

«570 eu=0 

45BO LOCATE 19,21 

«590 PRINT CHR$(22)CHR*(1)STRING$(20,154)CMR$(22)CHR$(0> 

«600 GOSUB 4240:GOSUB 3960 
4610 RETURN 
«620 ' 

4630 ‘Stimme kopieren 

46*0 

*650 BOROER 11 

«660 FOR j=mnr*64 TO mnr»64+63 
4670 b=J AND 63 

4680 FOR 1=0 TO 2 

«690 h(b,1)=PEEK(UNT(adr(v.1)+j)) 

4700 NEXT I,] 

4710 h=PEEK(UNT(ma(v)*mnr)) 

«720 BOROER 1 
4730 GOTO 3960 
«740 ' 

«750 BORDER 11 

4760 FOR j=mnr»64 TO mnr*64*63 
«770 b=J AND 63 

«780 FOR 1=0 TO 2 

«790 POKE UNT(adr(v,1)+J),h(b,i) 

«800 NEXT I ,i 

«810 POKE UNT(ma(v)emnr),h 
«820 BOROER 1 
4830 GOTO 3960 
4840 ‘ 

«850 Speicherstol1en verschieben 
«860 ‘ 

4870 j = (1 nr + 3)MOD 64 
«880 POKE UNTIma(v)+ mnr),0 
4890 k=-l 

«900 FOR 1=63 TO J*1 STEP -1 

«910 GOSUB 5070 

4920 NEXT 

4930 GOTO 5020 

4940 J=(lnr*3)MOD 64 

4950 POKE UNT(ma(v)tmr),0 

4960 k=l 

4970 FOR t=J TO 62 
4980 GOSUB 5070 
«990 NEXT 
5000 1=63 
5010 ' 

5020 b=UNT(adr{v,0)*mnr*64+1 ) 

5030 POKE b,0 
5040 POKE UNT(b+ml),0 
5050 GOSUB 3960 
5060 RETURN 

5070 b=UNT(adr(v,0)+mnr*64*1) 

5080 POKE b,PEEK[UNT(b+k)) 

5090 POKE UNT(b+ml).PEEK(UNT(b*ml+k)> 

5100 RETURN 
5110 ‘ 

5120 'Speicherstelle ed111 eren/Ton ausgeben 
5130 ' 

5140 IF ed THEN IF CU TMEN 5150 ELSE RETURN 
5150 o=ok-l:k=a-12:GOTO 5170 
5160 o=ok:k=e 

5170 b=UNT(adr(v,0)+mnr=64+((lnr+3)M0D 64>) 

5180 c=UNT(b+ml) 

5190 IF ed THEN IF CU THEN 1=ASC(aS):IF<1>64 ANO 1< 71)OR(1 >4 7 
AND 1< 58)THEN 5250 ELSE RETURN 
5200 IF vol THEN x = vol:GOTO 5220 
5210 x=PEEK{c)AND IF 

5220 SOUND 130,tp(o*12*k),192.x, I ns, I ns,rs(1 ns ) 

5230 IF INKEY(t(a-l))=0 THEN 5230 
5240 IF ed=0 THEN RETURN 

5250 ON cu GOTO 5260,5260,5260,5330,5350 
5280 POKE b,O*12« k 

5270 IF vol THEN POKE c.<P£EK(c)AND &F0)*VOl 
5280 POKE C,(PEEK(c)AND &F)*1ns«16 
5290 POKE UNT(ma(v)*mnr),0 
5300 LOCATE« v*2,1,5 

5310 PRINT»v*2.2$<PEEK(b)>" 'HEX*(PEEK(c ) ,2> ; 

5320 GOSUB 4140:RETURN 

5330 POKE C, (PEEK(e)ANO &F ) * VA L ( «. ' ♦ a*♦ ' 0 ' ) 

5340 GOTO 5290 

5350 POKE e , ( PEEK<c ) ANO 6F0)*VAL('&"*aS) 

5360 GOTO 5290 
5370 1 

5380 Play Sono 
5390 ' 

5400 LOCATE 2,20 : PEN 2 : PRINT''PLAV“ : PEN 1 
5410 o=mnr 

5420 FOR mnr=0 TO mm 

5430 GOSUB 5750 

5440 IF INKEY(12JTHEN 5*70 

5450 mnr=o 

5460 GOTO 5700 


I 117] 

12329) 

12157] 

1117] 

11804] 

(117) 

12963] 

[1641] 

1490 ) 

1321] 

l 117) 

[391] 

1117) 

1950] 

12000 ] 

11218] 

[1490] 

1 1492 ] 

1 558] 

11128! 

[ 555 ] 

1117] 

1164] 

1117] 

1 763) 

189) 

1568) 

[3641] 

[1254] 

1555] 

[117] 

[158] 

(117) 

1950] 

12032] 

1 742] 

1*71] 

12226] 

[411! 

11888! 

I1011) 

[481] 

[117] 

[950] 

[2032] 

1 742 ] 

(471] 

[1695] 

[ 411 ] 

[901] 

l1011 ] 

[481] 

[117] 

12512] 

[117] 

[6431 

[ 1021 ] 

[ 220 ] 

[1533] 

[861] 

[350] 

[ 383] 
[6*3] 
[ 1021 ] 
( 192] 

[1030] 
[861] 
[350] 
[366] 

[117] 

[2059] 

[139] 

[551] 

(993) 
(555) 
[2059] 
[1082] 
[999] 

[ 555 ] 

[117] 

[2407] 

[117] 

[1357] 

[851] 

[513] 

[2963] 

[16411 

[4188] 

[2062] 

(19581 

[3043] 

[1*08] 

[BBS] 

11832] 

[395 ] 

[4400] 

[1160] 

[ 1021 ] 

[1167] 

[2769] 

[1313] 

[994] 
[321] 

[1400] 

[321] 

[117] 

[836] 

[117] 

[3012] 

[115] 

[1057] 

[956] 

[1321] 

[ 3551 

[454] 


5470 NEXT [350] 

5480 mnr=o [355] 

5490 p!0=ps;p)l=ps:pl2=ps [1751] 

5500 nr0=PEEK(UNT(p1aO*pl0)) [921] 

5510 nrl=PEEK(UNT(plal*p11)) [1615] 

5520 nr2=PEEK(UNT(pla2.pl2)> [2349] 

5530 GOSUB 5940 [1013] 

55«0 IF(SQ(1)AND 7 J THEN GOSUB 6090 [1246] 

5550 IF 10 < 64 THEN 5590 [689] 

5560 plO=(plO+l)M00 6« [691] 

5570 nr0=PEEK(UNT(pla0*p1O)> [921] 

5580 10=0 [307] 

5590 IF C SQ(2)AND 7)THEN GOSUB 6130 [1398] 

5600 IF 11< 64 THEN 5640 [ 739] 

5610 pll=(p11+1)MOO 64 [895] 

5620 nrl=PEEK(UNT(p]al«p!l)) [1615] 

5630 11=0 [311] 

5640 IF(SQ(4)AND 7)THEN GOSUB 6170 [1367] 

5850 IF 12 < 64 THEN 5690 [ 1366] 

5660 pl2=(pl2*1)M00 6« [1125] 

5670 nr2=PEEK(UNT(pla2+pl2)J 12349) 

5680 12=0 [363] 

5690 IF INKEY(125THEN 5540 [1417J 

5700 LOCATE 2,20: PRINT‘‘PLAY“ [2092] 

5710 CALL &BCA7:RETURN [958] 

5720 ‘ [117] 

5730 ’Notenl«engen berechnen [1969] 

5740 1 [117] 

5750 FOR k«0 TO 2 [1300] 

5760 IF PEEK(UNT(ma(hj+mnr)JTHEN 5870 [2258] 

5770 B=UNT(adr(k,0)*mnr»64) [2128] 

5780 a=0:e=UNT(b+m2) (11211 

5790 CALL adres.c [12211 

5800 FOR 1=63 TO 0 STEP -1 [771] 

5810 a = a*1 [725] 

5820 IF PEEK(UNT{ b+-1)JTHEN POKE UNT(c*i).a a=0 [3144] 

5830 NEXT [350] 

5840 POKE UNT(ma<k)*mnr),i [850] 

5850 IF PEEK(c)THEN 5870 [1338] 

5860 POKE c,a [278] 

5870 BOROER 11 [950] 

5880 NEXT [350] 

5890 BOROER 1 [1011] 

5900 RETURN [555] 

5910 ' [117] 

5920 ’Play Makro [629] 

5930 1 [117] 

5940 10=0:11=0:12=0 [748] 

5950 SOUNO 135,0, 96,0:RETURN [1433] 

5960 LOCATE 2 , 22 : PEN 2 : PR INT ' PLAY ‘‘: PEN 1 [3220] 

5970 GOSUB 5750 [956] 

5980 nr0=mnr:nrl=mnr:nr2=mnr [2370] 

5990 GOSUB 5940 [’ 1013] 

6000 IF(SQ(1)ANO 7 JTHEN GOSUB 6090 [ 1246] 

6010 10=10 MOD 6« [683] 

6020 IF(SQ(2)ANO 7)TMEN GOSUB 6130 [1398] 

6030 11=11 MOO 64 [735] 

6040 IF(SO(4)AND 7 JTHEN GOSUB 6170 [ 1367] 

6050 12=12 MOD 64 [817] 

6060 IF 1NKEY(12)THEN 6000 [1103] 

6070 LOCATE 2.22:PR INT”PLAY" [2172] 

6080 CALL 4BCA7; RETURN [958] 

6090 c=nr0=64*10:b=PEEK(UNT(adr01+c)):a=B\16:d»PEEK(UNT(adr02+ [4228] 
c)> 

8100 SOUND 1,tp(PEEK(UNT(adrOO+c>)).0*12,b ANO &F.a,a,rs(a) [5319] 
6110 10=10*d [990] 

6120 RETURN [555] 

6130 c = nrl«64*11:B=P££K(UNT(adr11+c>):a=b\16:d=PEEK(UNT<adr12+ [5 382) 


c) ) 

6140 SOUND 2,tp(PEEK(UNT(adrl0+c))),d»12,B ANO &F.a.a,rs(a) (4112) 

6150 11=11+d [691] 

6160 RETURN [5S5] 

6170 C=nr2*6«+12:B=PEEK(UNTtadr21+c>):a*b\l6:d=PEEK(UNT(adr22* [4342] 
c) > 

6180 SOUNO 4,tp(PEEK(UNT(adr20+c))).d«12,b ANO &F,a.a,rs(a) [3356] 
6190 12=12+d [631] 

6200 RETURN [555] 

6210 ' [117] 

6220 ‘Unterprg. Programmstart [1405] 

6230 ‘ [117] 

62*0 RESTORE 6320 [567] 

6250 FOR k=l TO 35 [1105] 

6260 REAO X.O.y.a [546] 

6270 FOR 1=y TO a [813] 

6280 FOR J=x TO O [1156] 

6290 f(J,U=k [562] 

6300 NEXT 3.1,k [407] 

6310 RETURN [555] 

6320 DATA 1,15,22,23,1.15,20,21.1,15,18,19.1,15.16,17 [2475] 

6330 OATA 1,22.13,14.1,22,11 , 12, 1, 13,8,9, 1 , 13,4,5.1,13,2,3,1 . 1 [ 2481 ] 
3.0,1 

6340 DATA 27.38,14.14,27,38,13,13,27,38,12.12,27,38.11,11 [2050] 


6350 DATA 20.26,22.23,17,20.20,21,21,24,20.21.27,30.20,21.31.3 [3429] 
4.20,21 

6360 OATA 35.38,20,21.17,20,18,19,21.24,18.19,27,30,18,19,31,3 [2959] 
«. 18,19 

6370 DATA 35.38.18,19,17,20.16,17,21,24,16.17,27,30,16,17,31,3 [29061 
«.16,17 

6380 DATA 35.38.16,17,30.35.22,23,27,29,22.23,17.19,22,23,36,3 [2387J 


8,22,23 

6390 DATA 2«.25.11,14 [804] 

6400 FOR 1=14 TO 29 l791] 

6410 fk(1)=13 [65] 

6420 NEXT [350] 

6430 FOR 1=30 TO 45 [1036] 

6440 fk(1)=29 [85] 

64S0 NEXT [350] 

6460 FOR 1=46 TO 61 [1116] 

6470 fk(1)=45 [69] 

6480 NEXT [350] 

6490 FOR 1=0 TO 13 (514) 

6500 fk(t)=61 [277] 

6510 NEXT [350] 

6520 fk(62)=61 [497] 

6530 fk{63)=61 [481] 

6540 p1a0=p(0):p)al=p(l):pla2=p(2) [2488] 


Listing Sound 
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Programm—i 


65 50 ad=00=40r(0,0):adrOl = adr(0,1):adr02 = adr(0,2) 
6560 adrX0=adr(1,0):adrll*adr(1.1):adr!2=adr(1,2) 
6 5 70 adr20«adr(7,0):adr21=adr(2,i)-adr22 = adr(2,2 ) 
6580 RESTORE 6620 
6590 FOR 1=0 TO 23 
6600 READ t{1 ) 

6610 NEXT 

6620 DATA 67.65.59,57,58,50,«9.51.48,43,41,42 

6630 DATA 71,60.63,61.62,55,52.54,44,46 45.38 

6640 RESTORE 6800 

6650 FOR k«0 TO 7 

6660 FOR 1=1 TO 12 

6670 REAO a$ 

6680 a$=a*TH£X$(k) 

6690 b=k«1241 
6700 zS(b)=a$ 

6710 tp( b)=ROUND(62500/440*(2*(4- k- ( 1-10)/12)J) 

6720 NEXT 

6730 RESTORE 6800 

6740 NEXT 

6750 z$(0 ) = "-" 

6760 FOR 1=97 TO 255 
6770 z*(1)= B xxx” 

6780 NEXT 
6790 RETURN 

6800 DATA C-,C*.D-,0».E-.F-.Fa,0-,Ca,A-.A«,M- 
6810 ' 

6820 'Rahmenroutlre 
6830 ' 

6840 PRINT CHR$(22)CMR*(1); 

6850 WINDOW J,40,k,25 

6860 PRINT CHR$(150)STRINGS(x-2,1S4)CMRJ(156) 

6870 FOR 1=3 TO y 
6880 PRINT CHRS(149); 

6890 LOCATE X,VP0S(»0) 

6900 PRINT CMR*(149) 

6910 NEXT 

6920 PRINT CMR$(147)STRINa$(x-2.154>CHR$(153). 

6930 PRINT CHR$(22)CHR$(0); 

6940 WINDOW 1,40,1,25 
6950 RETURN 
6960 ' 

6970 Clear Input 
6980 ' 

6990 WMILE INKEY*«»"“ 

7000 WENO:RETURN 


10 * = = = ss = = a** = = = = = =ai= = = = = = aaa = = s:= = = BaB = = = =£ = 

20 = Dieser DATAlader entpackt und erjougt 

30 •= die Oateien "S0NG.81N u. 'SOUNDSET,' = 

40 '=SmtS=:iSII|BS!SSSI|B SS ; !!ln; . : - :; . 

50 ' 

60 MODE 1 

70 DEFINT a-z 

80 MEMORY &6FFF 

90 GOSUB 2140 

100 ad r = 4 7000 

110 RESTORE 270 

120 FOR 1=270 TO 1880 STEP 10 

130 GOSUB 2200 

140 NEXT 

150 ad r = & 7000 

160 FOR 1=69703 TO 69S00 STEP -3 
170 FOR J=2 TO 0 STEP -1 
180 POKE UNT(i-J J , PEEM adr J 
190 adr = UNT(ad r+l) 

200 NEXT J.1 

210 FOR 1=67000 TO 6744E 
220 POKE 1,PE6K(UNT(i*S16)> 

230 NEXT 

240 CALL 6A500 

250 POKE 6EOFO,0:POKE 6E0F2,0:POKE 6E0C0.63C 
260 SAVE SONG.BIN".b,6C000.9456 
270 DATA OE,00,00,15,FF,00,17,OE,00,18 75E 
280 DATA 02.00,19,18,18,IC,15.0F.1F,15,CIF 
290 DATA 08,28,00,33,28.04,17.20,00,36 25A 
300 DATA 39,83.00,3£.28.28,45,04,FF,46,3FF 
310 OATA 00,63.4A,39.39,48,19.19,4C,20 F48 
320 OATA 20.46,FF,01,«F,03.OE,56,28,28,AFS 
330 OATA S7,10,IC,58,01,4F,59,40,15,SA,7AF 
340 DATA OE , 49,58.36.3D. 5C, 59,3F . 50, 1 5 60F 
350 OATA 05.5E,0C,1F,5F,FF,13,60,01,01,2Ü0 
360 DATA 61 , 5 7,57,62,83, I7,64,12,1E,65,1 OE 
370 DATA 26.33.6.6,65.3A,67,31.58,68.46,347 
380 DATA 04,69.2A,1£,6A.46,46.68.62,62,581 

390 DATA 6C,64,69.60,4A.4A,6E,IC.13^6F,5E5 
400 OATA 3E.3E.74.4B,48.75.30.30,76,53.790 
410 OATA 00,77,6E . 6E , 78,24,24 , 79,2 7,66,8CF 
420 OATA 7A,2A,67,7C,4C,4C,70,17,36,7E,AFB 
430 DATA 35,00.7F,OF,1B,84,20,20,85,5C,AAO 

440 DATA 5C.86.27,18,87.5E,68,88,7F,86,298 
450 DATA 89’, 6C, 6C , 8A , 43,63 , BB , 00,3D , 8C , 670 
460 DATA 00,80,80,00,81.8E,39.82,8F,55,CE8 
470 DATA 55,94,1F,5F,95,04,43,96,72,72.23A 
480 DATA 97,58,58,98,26,45.99,98,24.9A.97C 
490 DATA 12.94,9B,80.8C,9C.17,33,90,8E.269 
500 DATA 9B.9E,60,6D,9F,00,90,AO,54,17,778 
510 DATA Al,56,58,A2,99,45,A3,22.45,A4,F47 
520 DATA 07,14,AS,9A,04.A6,9C.9C,A7,79,862 
530 DATA 79,A8,7A,7A,A9,5F,A4,AA.46,63 648 
540 DATA AS,A2,A3,AC,88,88,AD.17.3C.AE,103 
550 DATA 18,60,AF,AB,20,80,68.6B,Bl.53,BIO 
560 OATA 17,82,AF,45,83,6F,6F,84,1F,14,040 
570 OATA B5,3C,0E,86,3C,8B,B7,06.50,B8,890 
580 DATA 74,74,89,86.B5,BA, 4 3,6A,BB,9F,8C2 
590 DATA 9F,BD,61,61,BE,70,70.BF,87,87,78E 
600 DATA CO,8A,63.C1,A9.A9,C2,18,2B,C3,401 
610 DATA 4F,97,C4,19,58,C5,52,17,C6,00.870 
620 OATA 1«.C7,00,96.CB.IC,22,C9,IC.2E.AF8 
630 DATA CA,10,29,CB,CA,10.CC,20,2C,CD.465 
640 DATA CC,20,CE,22,22,CF.22,2E,01,CF,F84 
650 DATA 22,02,07.07.03,76, 53, D4, 78,24 , 713 


Listing 


Sound 


11862) 

C2730] 

(2052) 

1731) 

[ 508 ) 
(663) 
£350) 
£1357] 

£1538) 

£ 759 ) 

£1311) 

£321) 

£309] 

£903) 

£ 637 ] 
[671] 
£2550] 
£350] 

£ 759] 

£ 350] 
[790] 
£972] 
£641) 

£350] 

[ 555] 

[2410] 

[117] 

[ 1274] 

[117] 

[1379] 

[1659] 

[2103] 

[ 356] 

£11931 

£1029] 

[1036] 

[350] 

[1977] 

£1383] 

[1024] 

[555] 

11171 

[1483] 

[117] 

£1109] 

[935 ] 


[2248] 

[ 1313] 

[2093] 

£2248) 

£117] 

£506] 

[ 553 1 
[158; 

[ 863] 
15431 
£ 797] 
[1798] 
[867 ] 

[350] 

[ 543] 
[1166] 
[968 ] 
[948] 
£591 ] 

[ 396 ] 

[1033] 
[1123] 
[350] 

[617] 

(2195) 

[1410] 

[ 2541 ] 
[2502] 

[ 1849] 

[ 1852] 
[1076] 
£1737] 
[2051] 
[1350] 

[ 1945] 

[ 874 ] 
[2086] 
[2145] 
[2087] 

[ 1 705] 

[ 1627] 

[ 1979 ] 
[2239] 

[2 199] 
[2242] 
£1496] 
[2093] 

( 1901] 

[ 1 78 7 ] 
[1337] 
[1480] 
[2945] 
[2070] 
[2083] 
[2052] 

[1855) 
[840) 
12253] 
12177] 

[ 1000 ) 

[1743] 

[2778] 

[1228] 

[958] 

[1186] 


* STARDRIVE 5.25-Laufwarke für CPC 6/464/6128 Jetzt auch in 2x360 KB-Ausführung mH 

- 12 Monalo Garantie, Goraie aus industrieller Produktion 

- Formschönes Flachgohäuse mit inl, Broitband-LED-Anzeige 

- Sehr leiser Lauf. Netzteil, Schaltor etc. 

- Eingebauter Diskettenseltenumschalter (alle 5,25’- u. 3,5"-Laulwerke) 

- Sofortige Betriebsbereitschaft 

- Alte Kabel und Bedienungsanleitung Im Lleferumtang enthalten 

aS£-ZwelUaufwerk (720 KB) nu , 2 ea, DM 

5,25~- Zweittaufwerk (720 KB) nuf 34 g] _ DM 


5,26“ Externst Disk Drive; 

(s. Test in H, 10/88 S. 40: Fazit: “sehr empfehlenswert* ) 

als Zweitlaufwerk 

als Erstlaufwerk lür CPC 464 

•net. Handbuch, Systemdiskollo, Controller 

als Doppellaufwerk 3” + 5.25" f. CPC 464 

■nd. Handbuch. Systemdisketto, Controller 

Weitere Angebote (Auszug aus unserer kostenl. Liste): 

- 3”-ZweHlw. FD1 orig. Schnoidar/Amstrao 

-5.25’-Einbau-Lau!werk (Sllm-Line) 


nur 298,- DM 
nur 498, - DM 
nur 698, - DM 

nur 289, - DM 
nur 169.- DM 


Preis zzgl. PortofVetpackung, Liste/Prospekte k ostenlos 

G + L electronic 


Computerhardware 

6759 Hefersweiler * Seelenerstraße 4 * Tel: 06359/2582 


JOYCE 720 KB 5,25“ Floppy 



Teamdrive Diskettenstation, Gehäuse siehe Bild. r - / 



internes Netzteil, komplett mit Anschlußkabel u. JJ J] r , ,i^ 

Anleitung, problemlos und schnell anschließbar. T— .JK 



incl. Umschalter lür MS-Copy 

DM 369, - 

Spezialkabel f. Joyce Plus (8512) mit Umschalter vom 3“-B-Laufwerk 
intern zum 5.25“-B-Laufwerk extern 

DM 

30,- 

MS-Copy: sehr nützliches Programm zum Kopieren von CPM auf 


MS-DOS-Textdateien und umgekehrt 

MSD: Anschlußkabel für unsere CPC und Joyce-Diskettenstationen an 

DM 

49,- 

MS-DOS-Rechnern, mit Anleitung für 360 KB und 720 KB 

Achtung: Ab sofort lieferbar 

PC-XT-AT Computer, Grafikkarlen Herkules u. Color 

Monitore Mono u. Color, Disketten 5,25" u. 3.5“ 

CPU: V20 u. V30 

DM 

35,- 

Speicheraufrüstungen für PC, Plotter HPX 8425/50, HP 74/75, CAD-Software, Drucker usw. 

Preise zzg! Porto u Verpackung, Versand per NN. Listen gegen Rückporto DM 2 ,hü m Briefmarken 

Krebs electronic 



Datentechnik - Computer - Hardware u. Software 



6751 Wellerbach, Tel. 06374 - 68 78 




DISKETTENLAUFWERKE 

Qualitätslaufwerke von TEAC anschlußfertig für Schneider¬ 
computer, 2x80 Spuren, 1 MB unformatierte Kapazität, inkl. 
Kabel, Netzteil, Metallgehäuse 


Anschlußfertige Diskettenlaufwerke, 830 KB form. Kapazität 
unter CP/M, inkl. DiskPara und MsCopy, lieferbar in 3,5” (298.-) 
oder 5,25”-Ausführung (348,-). 


DiskPara 


Auf beliebigen Zweitlaufwerken 
stehen bis zu 830 KB (form., CP/M) 
zur Verfügung. Verarbeitung von 
fast allen Fremdformaten. 


MsCopy (Aufpreis) 20.- 

SieheTests in Schneider Aktiv 2/87, c’t 5/87, PC Int. 6/87, CPC 
Magazin 4/87, Happy Comp. 4/87, 8. M&T Sonderheft. 


JOYCE 


Anschlußfertige Dis¬ 
kettenlaufwerke 3,5”: 

2 x 80 Spuren, 1 MB, 
problemloser Anschluß 
5,25” mit eigenem Netzteil: 

MsCopy 49.-, Aufpreis 5,25" 40/80 Track schaltbar für MsCopy 20.- 


PC 1512 und 1640 

Festplattenkit 30 MB 698.- 

inkl. Lüfter, deutscher Einbauanleitung und kompl. Einbausatz 
Auch lieferbar als 40 MB Kit (42 MB, 40 ms, Autopark) 928.- 


3 c jj Disketten-Laufwerk, 720 KB, 
jO mit Einbaurahmen, anschlußfertig 


279.- 


Frank Strauß Elektronik 

Schmiedstr. 11 • 6750 Kaiserslautern • Tel. 06 31/6 70 96 und 6 70 97 

1 Jahr Garantie • zzgl. Versandkosten • Lieferung durch Post oder UPS 
per Nachnahme • Bei Bestellung unbedingt genaue Konfiguration angeben. 
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[—Programm 


660 DATA CS,46.17,06,11.CB,DT,CO,D5,08.CF6 
670 DATA A5,A5,09,68.C2.DA,16.Ol,OB,17,881 
660 DATA 14,DC.AA,07,DO,FF,22.DE,00,SO,820 
690 DATA OF,00,75.EO,38,3F,El.9S,8«.62,807 
700 DATA 9S,04,E3.55,66,E4,5S.67,E5.3A,623 
710 DATA 41,E6,B2,82,E7,30,31,E8,0e,08,C2E 
720 OATA E9.S8,42,EA,E9,49,E8, 76,03.EC,33E 
730 DATA 25,31.ED.77,77,EE.08,08,EF,89,070 
740 DATA 7E,FO,26.E2,Fl,OC,OC,F2,5E,19,7FE 
750 DATA F3.F0,00,F4,79,E3,FS,7A,E4,F6,50A 
760 DATA 60,19,F7,45,05,F8,7C,7C.F9,F3,901 
770 DATA E1,FA,D9,F6.FB,2C,33,FC,7E,7E.AC7 
780 DATA F0,B9,89,FE.2E,35,OO.Ol,O2,O3,4C5 
790 DATA 04,05.06,02,£8.09,09,OA.OA.EE,720 
800 DATA EE,FF,0C.04.E8.0E,FF.00,06,05,6ES 
810 DATA D2,E8,0A,0A,O8,O9,O8.O9.E8,FF,CEO 
820 DATA OC,04,05.08,Fl,02,OA.OA,EE,EE,911 
830 DATA 2B,02,03.F7,10.F1,05,05,FF.OO,CDF 
640 DATA 04,06,06.04,F7,OF,Fl,05,05,F1,294 
850 DATA FF,05,08,OD.18,01,02,02.F7,14,OFC 
880 DATA FF,00,45,04,F7,08.02,06,06,FF,523 
870 DATA 05,OA,02,06,06,00,02,15,50,31,0A6 
880 DATA 17,2E,17,EC,E7,E7,EC,2E,C9,1F.C26 
890 DATA FF,55,04,31,IC,31,C9,C9,1F,FF,725 
900 DATA 55,04,31, IC,3.1,17,2E, 17,EC,67,D50 
910 DATA E7,EC,2E,C9,15,07,30.DF,DF,30,64F 
920 DATA 2A,IC,2A,IC,27,IC,27,1C,2A,1C.D6D 
930 DATA 29,IC,27,IC,29,1C.2A.C9,1C.33.A80 
940 DATA IC,35,IC,42,1F,42.00,3F,00,41,338 
950 DATA 1F. 41,88,00,3F,1F.41 ,AD. 1F,30,214 

980 DATA 17,EA.EA,EA,EA,F£,E5,FE.E5,FE,5tO 
970 DATA E5,F£.E5,FB,EO,FB,EO,FB,EO,F8.881 
980 DATA E0,29,30,35,3C,29,30.35,3C,29,3E7 
990 DATA 75,30.DF.30,3D.A0,00,38,88,AD,ABO 

1000 DATA 00,38.00,3A, 1F, 38,00.35,28,1F . 246 

1010 DATA 38,28.00.35,5D.30,DF.2C,75,2C,3E1 
1020 DATA 75,42,17,30,17.41,00,42,17.41,075 
1030 DATA 15,1l,3F.1F,41,AD,5D,41,3C,35,CF9 
1040 OATA 41.3C,35.41,3C,35,30.49,54,49,886 
1050 OATA 5A.49,5A,48,44,41.30,3C,5A,3C.AB7 
1060 OATA 5A.3C,5A,3A,17,3F,5A,3F,5A,3F,97A 
1070 DATA 5A,41,AO,17,40,5A.40.5A,40,5A.B7A 
1080 DATA 30.AD,70.00,EF,EF,B9.38.7D,17,4E7 
1090 DATA 38,20.SD,35,5D,30,31,75.31,75,59F 
1100 DATA 31,75,FF,36,10.31,5A,31,5A,31,517 
1110 DATA SA,31,5A,FF,33.10,2E.SA,2£.54,570 
1120 OATA 2E,5A,2E.5A,15.D0.22.17,22,17,14B 
1130 OATA 00,09,C8,1F,40,41,40,40,22,C8,496 
1140 OATA C8.C8,1F.40,41,40,40,23,IC,23,042 
1150 OATA 17.23,17,FF.23,09.IC,23.15,07,8A4 
1160 OATA 72,C7.C7,72.13,E0,E0,7?.6E,1C,307 
1170 OATA 14,B4,C6,C6,ß4,C6,C6,B4,08,84,CAA 
1180 DATA 17,FF,E6,82,99,04,CE,96,C7,72,D13 
1190 DATA Bl,76.76,Bl,EB.1F,EB,1F,EB,50,871 
1200 DATA 73,C7.00.71,71,00,70,70,14,08,130 
1210 OATA DB.C6,DB,15,11,14,84,DB,5D.26,7DB 
1220 OATA 26,26,04,CE.22,00,AO,C5,50,17,CE9 
1230 OATA FF.54,05.17.CS,50.17,AO,A0,C5,7A7 
1240 OATA 50,17,A0.A0.34,17,32,17.30,17,2BF 
1250 OATA AO.AO,54,00,54,00,54,54,OE,54,FF1 
1260 DATA 00,52,00,52,52,OE,52,DE.OE,50,7E7 
1270 OATA 06,81,Bl,03,SD.53,50,73,C7,00.F9B 
1280 DATA 71,71,00,70,70,84,21.21,06.23,281 
1290 DATA 23,78,25.25,26,24,23.22,93.17.E43 
1300 DATA 92,17,91.17,90.17,84,21,21,CE,245 
1310 OATA 23,23,78,25,25.26.24,23,22.93,F4B 
1320 OATA 17.92,17,91,17,90.15,83.SC,57,22F 
1330 OATA 56.46,08,57,87,61,57,87,57,56,682 
1340 OATA 4E,08.57,08,15,07.18,01,AE,01.F70 
1350 OATA BD,BO.BD,F2.F2,SE,2B,5E,2B,4E.740 
1360 DATA 38,A£.01,28,19,2B,19,F2,F2.B7,2EC 
1370 DATA 18.4E.08,S6,C2,12,15.11,5E.2B.FS0 
1380 DATA B7,4E,OA.C3,4E.05,C3.01,28.C3,3FC 
1390 DATA 01.56.C3.01,56.C4.C4.C4,56,1B,CAE 
1400 DATA 87.87,4E,1A.C3,58,4E,11,C3,58,2F9 
1410 OATA 01.85,36,F8.7C,4C.2D,B3.B3,15.AAA 
1420 OATA 41,36.BE.BD.BE,7D,A6.A6,A6,A6,039 

1430 OATA 70,F8,TC,4C,20,B3,83,4C,36,55.30A 
1440 DATA 36.36.2D,17.8F.36,4C,36,55.36.24B 
1450 DATA 36,20,17,8F,36.36,33,55,33,33,F84 
1460 DATA 28,17,8F,33,3E,33,55.33.33.28,031 

1470 DATA 17,55,00.BF,36,20,36,55.36,36,98E 
1480 DATA 20,17,BF,36,00,FC,SS,35.FC,7E.3F9 
1490 OATA 8F,3S.3E,33,55,33,3E,28,6F,33.34A 
1500 OATA 00,FC,SS,35,OE,7E,35,35,55,00.057 
1510 DATA 8F,F5,FS,F5,F5.F4,F4,F4,F4,15.BC6 
1520 DATA FF,15.44,30,AO,70,00,EF,EF,B9,C17 
1530 DATA 38,70,17,38,2D.SO,35.50,2C.31,94E 
1540 OATA 2C,2C,31,2C,2C,A8,A8,A8,A8,A7,627 
1550 DATA A7,A7,A7,15,80,90,88,BB,BB,9F,851 
1560 DATA 15,41,80,80.BO,80.9E.9E,9E,9E,A44 
1570 DATA 63,OC,BA,DC,BA,OC.QA,DC.43,00,918 
1580 OATA 43,8A,OC,BA,46,00,CO,6A,00,BA,110 
1590 OATA AA,8A.6A,46,8A,46,00,8A,06,63,323 
1800 DATA AA,43,00,43,43,FF,F9,20,FF,F9,728 
1610 DATA 20,FF.F9,20,FF,F9,20,15,FF,15,203 
1620 DATA 44,81,81,68,53.06,76.51,00.51,517 
1630 DA'A 51,0E,51.DE,OE,50,OE,C5,C5,52,ODO 
1640 OATA 00.52,50,52,50,72.00,71.71,00,F01 
1650 DATA 70,70,FF,£6.B7,AF,04,15,80,88,B8E 
1660 'OATA 88.5C,Al,Al.Al,Al,88,BB. 18,FA,0E4 
1670 OATA FA,FA,09,AE,16,FA,AE,19,AE,19,908 
1680 OATA 60,01,19,AE.01,19,18,58.AE.18,781 
1690 DATA 4E,42,8S,85,5C.4F,56,C4,C4,C4.6A2 
1700 DATA 56,18,87,B7,4E,47,SC,59,78.FF,2EE 
1710 DATA 55,04,15.38,18,00,18,00,ie,00,6A1 
1720 DATA 1B.00,IE,1F.6C,IE.1F,6C,18,1F.0C4 
1730 DATA 88,18,1F,BB.15,40.FD,FD.AC,AC,17F 
1 740 OATA AC,AC,FD.DA.DA,OA ,DA, 14,CO, 14. 103 
1750 OATA CD.14,CD,14,CO,06,06,06,06,IE,3C0 
1760 OATA 1F,6C,22,1F,DA.20,84,CO,10,1F,82A 
1770 OATA 06,1E,C8,IC,20,IC,ID,15,FF,15,888 
1780 OATA 50.FF,1£,04,12,FF.IE,07,12,FF,036 
1790 DATA IE,07,12.FF,IE,07,64,IE,IE.FF,104 
1800 OATA IS,04,OF,FF,18,07,OF,FF,18,07,Fga 


Listing Sound 


11767] 
[ 1864 ] 
t1893] 
(2223) 
(1367) 
[1654] 
[1657] 
[2207] 
[2054] 
[2520] 
[1593] 
[2123] 
[2196] 
[2034] 
[1879] 
[1859] 
[1502] 
[1674] 
[1585] 
[1474] 
[1244] 
[1907] 
[2116] 
[1306] 
[1806] 
[2440 j 
[2055] 

I1384] 
[2269] 
[1255] 
l1961] 
[2236] 

[126SJ 
[2190] 
[2298] 
[ 1702] 
[1619] 
[2078] 

[1207] 

[1665] 

[1676) 

[1937) 
[1974] 
[18031 
[1372] 

[ 1684] 

[2690] 

[ 1963] 

[ 18S0] 

[1738] 

[1973] 

[2420] 

[1589] 

[2023] 

[1718] 

I2099) 

I1656) 
[1273] 
[2038] 

[1894] 

[1390] 
[3104] 
[17531 
[1922] 
[1808] 

[1580] 

[ 1780] 
[1542] 

[1643] 
[2095] 
[1994] 

[ 22 7 7 J 
[2196] 
[1543] 
[1570] 
[1947] 

( 1849 ] 
[2767] 
[1701] 
[3025] 

[1635] 

[1916] 

[2347] 

[1274] 
[1963] 
[1810] 

[1394] 

[1238] 
[1254] 
[2901] 
[2259] 
[2143] 
[1789] 

[1922] 

[1149] 

[1023] 

[1330) 

! 1489] 

[2427] 

[902] 

[1717] 

[14581 

[1900] 

[ 1932] 
[2369] 

[ 1873 ) 
[2712] 

( 1641 ) 
[2431] 
[1266] 
[1678] 
[1535! 
(1681) 
[1748] 
■2301] 


1810 
1820 
1830 
1840 
185 0 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 

1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2 3 60 
2370 
2380 
2390 
2400 


OATA OF,FF,1B,07,7F,18,18,15.BC, 
OATA 41.40,59,38,10,00,11.00,12, 
OATA 13.00,D8,08.15,40,5F.80,08, 
OATA 9A.05,77,6E. 15,FF , 15,50,5F. 
OATA 14,CI,CI.CI,A9,13.13,13,IS. 
OATA 3C,IS,2F,18,OA,15.09,68,38. 
OATA 37.4Q,BF,BF,5C.4E.80.BF,0-, 

DATA 85,85,5C,4E,40.85,4E,30,00, 

DEFINT a-7 RESTORE 1960 
OPENOUT" SOUNOSET ■' 

FOR 1=1 TO 255 
READ «:WRITE»9,a 
NEXT 

CLOSEOUT 

ENO 

DATA 3,3,1,5,~l,l,1,-2,2,2,2,4,1 
OATA 1. 6 .1,3 ,-l. 3, 1 ,-2,2 , 1 , 2 2 \ 1 
DATA 2.3.2.2,-1.10,15,-2,1,13,1, 
OATA 1.10.1,8,-1,3,1,-30,1,1.0,1 
DATA 1,9,2.6,-1,8,1,-1,2,1,-1,3, 
DATA 1.9,1,6,-1,2,1,0.2,1,32,2.1 

OATA 1.11,1.6,-1.3,1,99,1.37,20, 
OATA 1,8,1,5,-1,3,1,-3,3,1,1,4,1 
OATA 2.4.2,l,-J 1 i t io,-l,2 > 8,2,2. 
OATA 10,10,5,4,-1.1,2,1,2,2,-i ,3 
OATA 1,11,1,11,-1,1,1,0,1,1.0,1, 
OATA 1,10.2.4,-2,10.1,2,2,2,- 1 , t 
OATA 1,10,1,10.-1,3.1,30.1,1,-30 
DATA 3,3,8,9,-1,1,1,-30,1,1,0,1, 
OATA 1,11.2,11,-1,4,1,-30,1,1.0, 

’Dekompressor 

adr=&ASOO 
RESTORE 2280 

FOR 1=2280 TO 2400 STEP 10 
GOSUB 2200 
NEXT:pr2=0 
RETURN 

FOR j = l TO 10 
REAO a*:a=VAL(' &' +aS) 

P r 2 =(pr 2 +J=a)MOD 4096 
POKE adr,*:aar*UNT(adr+ 1 ) 

NEXT 

READ a$: pr = VAL( ''&"+a$) 

IF pr<>pr 2 THEN PRINT"Pr ue fsummenf 
RETURN 

DATA 06, AO, 11 , 46,04,00,21 [*00,95,78 
DATA E6,01,20,09,21.00,CO,FO,21,00 
DATA 70,18,0C,21,00,70.FO,21,00.CO 
DATA 78,FE,01,28,30,C5.4A,43,AF,88 
OATA 28,01,0C,76,23,00.86,00,28.13 
DATA FO,77,00,FD,23.10,F2,00,20,EF 
DATA Cl,DD,23,00,23,00,23,10.C4.00 
DATA 7E.01.F0,77,00,FD,23,00,7E,02 
OATA 13,18,OF,43,4A,AF,B8,28,01.0C 
OATA 7E,FE,FF,26,00,7E.F0,77,00,FD 
DATA 23.23,10,F2,00,20.EF.C9.CS,23 
DATA 7E,23,46.F0,77,00,F0,23,10,F9 
OATA Cl,18,EA,00,00,00,00.00,00,00 


40.FB3 
00,3C8 
A5.04F 
04,105 
80,278 
15.AC7 
80,BF E 
00.709 


.-2,2,-1,0 
.0,2,-1.0 
1,16,-1.1,-1,0 
,1.0.1,1.3 
2.1.2,-1.0 
,-32,1 ,-l ,0 
1,26,20,1,-1,0 
.2,«.-1,0 
1,0.1,l,0 
.1.0.1,1,0 
1.0,1 . 1,0 
.2,0,3,-1.0 
, 1 . 1,0,1,-1,0 
1 .0,1, 1.6 
1.1,0,1.1,1 


en'er 

,2E1 
, 343 
. 69E 
.OBS 
.033 
. 890 
, 5C0 
, 060 
, DAE 
, 8 7 F 
, 5 F D 
,027 
, 3D6 


[1398] 

(913) 

[1623] 

(1562] 

( 1839 ) 

[2053] 

[1088] 

[1959] 

[1375] 

[999] 

( 335 ! 

[1004] 

(350) 

[902] 

[ 110 ] 

[2023] 

[ 2001 ] 

[1664] 

[1732] 

[1657] 

[ 1929 ] 

[2262] 

[2078] 

[ 1768] 

[1540] 

[ 1504] 

[1735] 

[1735] 

[1791] 

[1762] 

[117! 

( 702! 
[117] 
[632 ] 

[ 766 ] 

[ 1814] 
[867] 
[653 ] 

[ 555 ] 

( 728 ) 
(883) 
[887 ] 

[ 1425 ] 

[ 350] 
[806] 
[3284] 

[ 555 ] 
11666] 
[1710] 
[1461] 

[1740! 
[2461] 
[1585] 

[1972] 

[2144] 

[2159] 

[2478] 

[1850] 

[1957] 

[1870] 


10 
20 • 
30 - 
40 ' 
50 1 
80 - 
70 1 
80 
90 
100 
110 
120 
130 
140 
150 
l) 
160 
170 
160 
190 
200 
210 
220 
230 
240 
250 
280 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


s<15>,i(nwn.2>,i<3< 


SONG-Konverter 
■ fuer don 
= SoundmanagerVS.6 

= von A.Strolczek 
=(c) 1989 
= PC AMSTRAD 


OEFINT a-i 

mm=PEEK(UNT(HIMEM+l) ) 
ma=mm+l:ml=ma*64:m2=ml*2 
2=150:mp= 63 

OIM te(15),e(15,4,2),j(63),f{39,24] 

FOR 1=16 TO 63 
iC»)=9 
NEXT 

y<l>=-i:y[2)=l:y<4>=-i:y< 5 )=l:y<7)=-l:y(B)=l 

idri:äT?H?MEM^5 4) ° :1(S) = 4:J(6> * 5:J(e,a6:J<#,= 7:J,l0,=8 

p(0)=adr:p(l)=uNT(adr+64):p(2)=uNT{adr+128) 

FOR 1=0 TO 2 

adr(1,0) = UNT(adr + 19 2i-3»nil*i) 
adr(1,1)=UNT(adr< t,0)*ml) 
adr(1,2)=UNT(adr(1,0)+m2> 

NEXT 

FOR 1=0 TO 2 

ma<I)=UNT(adr(2,2)+ml.rea«i) 

NEXT 

’BIldschlrmaufbau 


“ODE 1:PEN 1 
RESTORE 
READ x , y , j , k 

IF X < 2 5 5 THEN GOSUB 2590:GOTO 370 

DATA 38,3.1,1,27,3,1,4,27,3.1,6,27,3,1,9,27 ,3 

DATA 15,3,1,14,4,3,24,14,6,3,34,23,255.0.0 0 

a*="SONGNAME -- 

b*="SOUNOSETNAME:-! " 

LOCATE 2,2:PlttNT Song-Konverter f"CHR*( 254 )-r 


Soundmanager 


440 

450 

460 

470 

480 

490 


COCATE 2,5: PR INT aS'' BI N "CHR* ( 9) ' < — Sou ree " 
LOCATE 2,7;PR INT 6*" "CHR*(9)"<--Sou ree" 
LOCATE 2,10:PRINT a*" OAT"CHR* ( 9Target ' 
LOCATE 2,12: PRINT l>* 'BAS"CHR* ( 9 ) " < - - Tar ge t 
LOCATE 2,15:PR INT"LOA 0 end WORK" 

LOCATE 35,24 PRINT'EKit" 


[3467] 
[1170] 
[ 475 ] 
[1920] 
[286] 

[ 766 ] 

[ 599] 

[ 797] 

[1467] 

(117) 

[ 553] 

[1377] 

[1900] 
(1210] 
[3304] 

i960] 

(818) 

[350] 

[2977] 

[1823] 

(3263] 

[ 769] 

[1726] 

[471] 

[1852] 

[1128] 

[1012! 

[350] 

[471] 

[<06] 

[3503 

(117) 

[1166] 

[117] 

[ 1036] 
[621] 
[632] 
[2437] 

[2382] 

( 1 6 0 9 ] 

(1115! 

[ 1376] 
(5349) 

[ 2102 ] 
[1730] 
[3066] 
[3738] 
[3140] 
[ 1201 ] 
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48 PC 4’89 






ProSoft-Preise liegen richtig! 

0 0261/4047-1 - El 8 62 476 PSOFT • Telefax 02 61 /40 47-252 

Wir suchen ständig günstige Einkaufsquellen für die angebotenen und neue innovative Produkte. 
Günstige Möglichkeit der Finanzierung durch Ratenkredit. Fordern Sie die Unterlagen an. 

Commodore Die Preisknüller! Seagate Festplatten Monitore A ms 4 /s 9 


| PC-10 III _ Grundversion _ 1628.- 

PC-10 III 1/20 20 MB Festpl., 1 Disklautw. 2098. 

PC-10 III 2/20 20 MB Festpl., 2 Disklaufw. 2258. 

PC-10III 1/30 30 MB Festpl.. 1 Disklaufw. 2148. 

PC-10 III 2/30 30 MB Festpl., 2 Disklaufw. 2298. 


NEU ! PC 40-111 

80286 mit 6/8/12 MH 2 Taktfrequenz umschallbar. 1 MO 
Hauptspeicher (640 KB für MS-DOS). 1 Disklautwerk 1.2 
MB, serielle u. parallele Schnitlstelle, VGA-Grafikadaptei 
Echlzeituhr, DIN-Tastalur, 14‘ Monochrom 
Bildschirm, MS-DOS 3.3 und GW-Basic 4998.- 


ST-225 20 MB 428.- ST-238R 30 MB 468. 

ST-250R 40 MB 498.- ST-277R-0 65 MB 838.- 

ST-4096 80 MB 1268.- ST-4144R 122 MB 1478. 

| ST-251-0 40 MB 738 - ST-251-1 40 MB 838.- 

3,5" Festplattenlaufwerke 


ST-125-0 20 MB 

ST-138R-0 30 MB 

ST-151 40 MB 


498.- ST-125-1 20 MB 568.- 

538.- ST-138MFM 30 MB 618.- 

848.- ST-157R-0 50 MB 798.- 


NEC Multisync II 1348.- Hitachi Multi 560 1148.- 

Mitsubishi EUM 1481 A oder FA 3415 ATKE 1168.- 
Citizen CCM 104 (Auflösung 1024 x 768) 1398.- 


EIZO 8060 S 14-, 820 x 620 Bildp. 1498.- 

EIZO 9070 S 16 ', 1280 x 800 Bildp. 1998.- 

Flat Screen Monitor 14' 218,- 


FeStplattenkitS (incl. XT-Conlroller und Kabelsatz) 

ST-225 

20 MB 5 1/4" 

538.- 

ST-238R 

30 MB 5 1/4" 

568.- 

ST-250R 

40 MB 5 1/4" 

608.- 

ST-138R 

30 MB 3,5" 

648.- 


NEC Multisync GS 


498.- 


CMP 


Rechner der Spitzenklasse ! 


CMP 286 Baby-AT 

Intel 80286 m. 6/12 MHz, 16MHz (II.Landmark-Test), 640 KB 
Hauptspeicher (erweilerbar aut 4MB on Board), Echlzeituhr, 
parallele und serielle Schnittstelle, t Disklaufwerk 1.2 MB, 
Hercules kompatible Grafikkane und MF-Tastatur (102 T.) 


Der Monitor ist nicht 
im Preis beinhaltet I 


Mitsubishi MR 535 

40 MB, 28 ms 

848.- 

Priam V-185 

110 MB, 28 ms 

1298- 

Western Digital Festpt.-Kit, 20MB(3,5-j 

548.- 


Filecard und Streamer 


Filecard 20 MB 

Alloy APT-40 


598.- Filecard 30 MB 


Software 

Pagemaker 1,0 A 
DBase IV Entw.-Pack. 
Clipper Comp. Ne! 
AutoCad Stand. 9.0 
Word Perfect 5.0 
Tex Ass Window * 
Turbo Toolboxen 
Norton Commander 
Wordstar 5.0 Prof. 
GEM Ist Word + 
Turbo Prolog 2.0 
Turbo Pascal 5.0 
Windows 286 2.1 
Quick C Comp. 


Top-Preise ! 

- DBase IV deutsch 
• Framework llt 

Ventura Publisher 

- Autocad Adv. 3 9.0 

- Word 4.0 

PC Tools de Luxe dt. 
Open Access II 2.1 
Adv. Nonon Utilities 
Wordstar 2000 Rel. 3 

- Turbo Basic 

- Turbo C 2.0 
Projecl 4.0 engl 

- Sidekick plus 

- Quick Basic Comp. 


40 MB Streamer 


Co-Prozessoren 




2298.- 


8087 (5 MHz) 

8C87 (10 MHz) 
80287 (8 MHz) 


198 - 8087 (8 MHz) 

398 80287 (6 MHz) 

448 80287 (10 MHz) 


Baby-AT/20 

2798- 

AT Tower/20 

3098- 

Baby-AT/40 

3098.- 

AT Tower/40 

3398.- 

Fordern Sie unsere CMP-Preisliste oder rufen Sie an 


80387- 16 

79 

80387 - 20 

99 

80387 - 25 

129 


Mäuse, Scanner 


Logi C7 Plus package deutsch 
Logi Hires Mouse 
GM 6000 Hires - Mouse 
MS-kompatible Mouse seriell 
(incl. Software und Adapterstecker) 


Cameron Handy Scanner und 
Handy Reader ffexterkennung) 


Logi Scan Man 

, DFI HS 2000 Scanner mH Graustufen 


nur 648. 


Atari 

Atari 1040 STF 

mil Monitor SM 124. integrierter 

Floppy 720 KB, Maus u Basic I 44c 

AniStrad Mit neuer Produktpalette ! 


Fast-Sockel 80287 - 8, 10 oder 12 MHz 


Diskettenlaufwerke 


FpSOn Qualtitäts-Drucker ! 


PC 1640 D Mono 

PC 1640 HD Mono 

1678.- 

2338.- 

PC 1640 D EGA 

PC 1640 HD EGA 

2498. 

3168- 

PC 1640 HD Mono mit 20 MB Festpl. (Seag.) 

PC 1640 HD EGA mit 20 MB Festpl. (Seag.) 

PC 1640 HD Mono mH 30 MB Festpl. (Seag.) 

PC 1640 HD EGA mit 30 MB Festpl. (Seag.) 

Portable PC 

2148 

2998- 

2196,- 

3048.- 

PPC 512 S 

1418.- 

PPC 512 D 

1668.- 

PC 2086 SD12MD 

2098- 

PC 2086 SD14CD 

2548.- 

PC 2086 DD12MD 

2548.- 

PC 2086 DD14CD 

2948.- 

PC 2086 HD12MD 

3148.- 

PC 2086 HD14CD 

3548,- 

PC 2286 DD12MD 

3298.- 

PC 2286 DD14CD 

3748.- 

PC 2286 HD12MD 

4248- 

PC 2286 HD14CD 

4648- 

PC 2386 H012MD 

8498.- 

PC 2386 HD14CD 

8898.- 

PC 2386 HD12HRCD 9248.- 

PC 2386 HD14HRCD 9598 - 

PC 2086 HD14HRCD 

3998.- 


360 KB (5 1 /4’) 128. 1.2 MB (5 1/4') 

720 KB (3,5-) 198.- 1,44 MB (3,5‘) 

198.- 

228.- 

Grafik-Adapter 

ATI EGA-Wonder Enhanced mH VGA 

VIDEO SEVEN VGA-16 OEM (16-Bit-Karte) 

VIDEO SEVEN VEGA VGA 

VIDEO SEVEN VRAM 

ORCHID Pro Designer VGA 256 KB 

GENOA Super EGA Hires plus Level / 

478.- 

698.- 

648.- 

1478.- 

798.- 

398.- 

MaxLoaiC Autoswitch EGA-Karte 

600 x 600 Bildpunkle, VGA Mode 11 <- 12 

378.- 

Max Logic VGA-Karte 

548.- 


LX-800 

LQ-850 


488.- LQ-500 
1368.- LQ-1050 


Einzelblatteinzüge für 

LX-800 178,- LQ-500 

LQ-850 318.- LQ-1050 


NEC 


P2200 

Einzelblatteinzug Tür P2200 


P6 plus 


1448.- P7 plus 


Colorkit für P6 plus und P7 plus 
Einzelblatteinzug für P6 plus 


nur 298.- 
398.- 


NEU ! EIZO MD-B10 VGA-Karte 
1024 x 768 Punkte mH 16 Farben 

NEU ! Citizen PCG 1000 

512 KB, Max. Auflösung 1024 x 766 


Tecmar VGA/AD 16 -Brt-Karte (Olnterl.) 

Max. Auflösung 1024 x 768 Bildp., 512 KB 


1_ 

Star 

Preisgünstig ! 

_1 

LC-10 cenlr. 

548.- LC-10 com 

548.- 

LC-10 cenlr. color 


648.- 


198- EBE2LC 24-10 


n — ,£ JL _ M M Filiale München Theresienstraße 56, 8000 München 2, Tel. 089/285014, 

■ Bj |V| |nl ff*® direkt bei der technischen Hochschule. Bitte beachten Sie. daß r.cht standin sämtliche 
■ ■ I v u M ■ mm m u Ware in unserer Filiale München vorrätig ist. Rufen Sie an! _ 

Bogenstraße 51-53, Postfach 207, D-5400 Koblenz-Goldgrube, Telefon (0261) 40 47-1, Telex 8 62 476, Telefax (0261) 4047-252 

Alle Preise zuztigl 10,- DM Versandkosten pro Paket. Lieferung per Nachnahme oder Vorkassescheck Versandkoslen Ausland DM 40.- pro Pakei. Lassen Sie sich keinen Baren aufbinden! ProSoft liefert Original-Produkte der führenden 
Hersteller. Überzeugen Sie sich selbst durch Abholung der Ware in unseren Verkaufs-und Vorführräumen in Koblenz. Wirgewahren Ihnen bei Barzahlung(keinScheck)2 c -:Skontoauf alle Preise, was vielleicht schonzur Deckung Ihrer 
Reisekosten ausreicht. Einige unserer Vorlieferanten liefern Produkte ohne die Seriennummer des Herstellers. In diesem Fall übernehmen wir anstelle der Herstellergarantie die unbeschränkte gesetzliche Gewährleistung. 
Bitte beachten Sie, daß nicht ständig sämtliche Ware vorrätig ist, Rufen Sie an! 






















I—Programm 



500 LOCATE 25,15:PRINT USING'»* ;mp 
510 GOSUB 2460 
520 ' 

530 'Hauptschie' f e 
540 ‘ 

550 PRINT CHR*(23)CHR*<1>; 

560 PLOT-2,-2,2 
570 xg=0:yg=384 
560 GOTO 650 

590 )=J(J0Y(0)>:IF J = 0 THEN 2=150 GOTO 590 
600 xa=xg:ya=yg 

610 xg=(xg+x(J)* 16* 640JMOD 640 
620 yg=(ys-y(3)*16<400)MOO 400 
630 MOVE xa,ya+16:PRINT CHR*(5)CHR*(255); 

640 IF j=9 THEN GOSUB 1300 

650 MOVE xg,yg*16:PRINT CHR*(5)CHR*(2551; 

660 FOR 1=0 TO 2 
670 2=2-1 

680 IF JOY(0)=0 THEN 1=151 
690 NEXT 
700 GOTO 590 
710 ’ 

720 Namen elngeDen 
730 ‘ 

740 y = 5 :GOSUB 780;sgn ame* = b*:RETURN 
750 y=10:GOSUB 780:sgname2*=b*:RETURN 
760 y= 7: GOSUB 780:sndname*=b*:RETURN 
770 y= 12 : GOSUB 780 : sndname2*=b$ RETURN 

780 0$=" PEN 2 : LOCATE 15.y:PRINT”-“ 

790 IF JOY(0)> 0 THEN 790 
800 GOSUB 2720 
810 FOR 1=1 TO 8 

820 a*=UPP£R$(INKEYt):IF a$ -""THEN 820 
830 a=ASC(a$) 

840 IF a = 127 THEN 1=MAX(1-2,0):b$=LEFTi(b*.MAX!LEN(b$)- 1,0)): 


[ 1726 ] 

[879] 

[117] 

[ 866 ] 

[117] 

[1919] 

[ 798] 

[1128] 

[371] 

[2460! 

[ 798] 

[ 1864] 

[22301 

[2724] 

E 7201 

[2062] 

[463] 

[ 746 ] 
[1166] 
[350] 
[454] 
[117] 
[596] 
[117] 
12364] 
[3157] 
[3378] 
[1361] 
[1509] 
[856] 
[907] 
[462] 

(18801 
[ 1036] 
[2690] 


GOTO 

890 

[1810] 

850 

IF a=13 THEN 1=8:GOTO 880 

860 

IF(a>64 AND a<91)OR(a>4? AND a<58)THEN 870 ELSE 820 


8 70 

b$=b**a* 

(99) 

880 

IF 1=8 THEN PEN 1 

[1446] 

890 

LOCATE 15,y:PR 1NT b$*STRING*(8-LEN{6$ ) ,45); 

[3662] 

900 NEXT 

[350] 

910 RETURN 

[ 555 ] 

920 1 


[117] 

930 ' 

7ah1 elngeben 

[ 604 ] 

940 


[117] 

950 LOCATE 25,15 

[ 746] 

960 PRINT CHR*(24)USING's* 1 ,mp; 

[ 1937 ] 

970 PRINT CHR${24) 

[996] 

980 LOCATE 25,15 

[ 746 ] 

990 FOR 1=1 TO 2 

[ 436 ] 

1000 

a$=UPP£R*(INKEY*):IF a*= 'THEN 1000 

[1600] 

1010 

a=ASC(a*):IF a<48 OR a>57 THEN 1000 

[2759] 

1020 

a$(1)=aS PRINT a*.:NEXT 

[5021 

1030 

mp = VAL(a*(1)T a*(2)) 

[9 75 ] 

1040 

IF mp> 63 THEN 950 

[653] 

1050 

RETURN 

[555] 

1060 


[117] 

1070 

‘ Song *i aden 

[410] 

1080 


[117] 

1090 

IF sgnamc$='"THEN RETURN 

[395] 

1 100 

LOAD sgname**'.bin",adr 

11255) 

1110 

IF sndnamo*=""THEN sndname*=sgname* 

[1802) 

1 120 

GOSU9 1170 

[817] 

1130 

RETURN 

[555] 

l 1 40 


[117] 

1150 

'load Soundaet 

[1427] 

1 160 

' 

[117] 

1170 

OPEN1N r.ndnamct 

[909] 

1180 

FOR k n1 TO 15 

(1093] 

1190 

FOR j=0 TO 4 

(692 ! 

1200 

FOR 1=0 TO 2 

[471 ) 

1210 

INPUT»9,c(k.J,1 ) 

[ 680] 

1220 

NEXT 1 , j 

(411 ] 

1230 

INPUT#9 , te< k > ,rs< k) 

[1357] 

1240 

NEXT 

[350] 

1250 

CLOSEIN 

[ 752 ] 

1260 

RETURN 

[ 555 ] 

1270 


[117] 

1280 

’Ve r zweigong 

[658] 

1290 


[117] 

1300 

ON f(xg\16,y9\16)GOSUB 740,750,770.1390,950.760,1350 

[2630! 

1310 

RETURN 

[ 555] 

1320 


[117] 

1330 

'Exil 

[422] 

1 340 


[117] 

1350 

MODE 2:CALL 1BB03:END 

[ 1684] 

1360 


[117] 

1370 

Konverter 

[ 358 ! 

1380 


[117] 

1390 

GOSUB 1090 

[905 ] 

1400 

IF f1ag TUEN RETURN 

[1488] 

1410 

GOSUB 1480 GOSUB 2140 

[1009] 

1420 

RUN 

[2«3] 

1430 

RETURN 

( 555 ) 

1440 


[117] 

1450 


(117) 

1460 

Daten Konvertieren und als ßlnaeroatei soeicnern 

(3598) 

1470 


[117] 

1480 

IF sgnatne2*=' "THEN RETURN 

[ 93 7 ] 

1490 

IF sndname2*= ” THEN sndname2* = agname2S 

[2748] 

1500 


[117] 

15 10 


[1973] 

1520 


[117] 

1530 

FOR mnr=0 TO mm 

[1057] 

1540 

FOR k = 0 TO 2 

[ 1300] 

1550 

IF PEEK(UNT(ma(k)*mnr))THEN 1660 

[2308] 

1560 

b=UNT(adr(k.0}+mnr*64) 

[21281 

1570 

a=0;C=UNT(b*m2) 

[1121] 

1560 

POKE c,0 

1 103) 

1590 

FOR 1=63 TO 0 STEP -1 

(771) 

1600 

a = a +1 

[ 725 ) 

1610 

IF PEEKtUNT (b+1 ) )THEN POKE UNT(c+1),a a = 0 

[3144] 

1620 

NEXT 

[350] 

1630 

POKE UNT(ma(k)+mn r ) ,1 

[850] 

1640 

IF PEEK(c)THEN 1660 

[1452] 


Lisling Sound 


1650 POKE c.a [278] 

1660 BOROER 11:NEXT [911] 

1670 BORGER 1:NEXT [865] 

1880 !■ U17] 

1690 1 Unbonutzte Makro» »ussortieren [1863] 

1700 • [117] 

1710 FOR 1=0 TO 2:a=0 [733] 

1720 FOR k=0 TO mm (1173) 

1730 FOR 3=0 TO 63 £582] 

1740 IF K=PEEK(UNT(p<i)*3))TH£N 1(a,1)=» a=a41:j=64 [3924] 

1750 NEXT 3,k:a(1)=a-l [954] 

1760 NEXT [350] 

1770 FOR 1=0 TO 2 [471] 

1780 FOR 3=0 TO a(1) [929] 

1790 FOR k=0 TO 63:a=UNT(p(1)+k):IF PEEK(a)=1(J,1)THEN POKE [4115] 

■■3 

1800 NEXT k,3,1 [400] 

1810 - [117] 

1820 'Daten Im Bl 1dsch1rmape1 eher ablegen [2065] 

1830 • [117] 

1840 ad=4C000 [577] 

1850 FOR 3=0 TO 2 [702] 

1860 FOR 1=0 TO 63 [468] 

1870 POKE ad.PEEK(UNT(p(3>+1)) [3S9] 

1880 ad=ad*1 [315] 

1890 NEXT 1,3 [411] 

1900 z3=*C0 [747] 

1910 FOR k=0 TO 2 [1300] 

1920 FOR 3=0 TO a(k) [925] 

1930 IF akOk THEN zl=k«ma [904] 

1940 ak=k (1801 

1950 2(2l)=23:21=21+1 [1377] 

1960 FOR 1=0 TO 63 [468] 

1970 d=1(3.k)*64+1 [1457] 

1960 a=PEEK(UNT(adr(k.0) +d)) [2207] 

1990 b = PEEK(UNT(adr(k,l)+d) ) [2524] 

2000 c=PEEK(UNT(adr(k.2)*d>) [3030] 

2010 IF c THEN POKE ad,a:POKE UNT(ad+1),b:POKE UNT(ad+2).c [5129] 

:ad=UNT(ad-3):2 3=UNT( 23 +3) 

2020 NEXT 1,J,k [492] 

2030 FOR 1=0 TO ma*3-l [685] 

2040 h*=HEX*(z(1),4) [1418] 

2050 POKE ad,VAL("Ä'' + RIGHT*th*,2)) [ 1244] 

2060 POKE UNT(ad+l) ,VAL( "6''+LEFT*(h*,2) ) [2031] 

2070 ad = UNT(ad * 2) [ 1295] 

2080 NEXT [350] 

2090 SAVE sgname2*+~.OAT",b.6COOO.UNT(ad-*COOO) [2471] 

2100 RETURN [555] 

2110 ' [117] 

2120 'Baaicprg speichern [1616] 

2130 ' [1171 

2140 IF sndname2$=""THEN RETURN [1496] 

2150 OPENOUT sndn»me2*+".BAS" [2478] 

2160 IF agname2$ = ''"THEN 2190 [ 1220] 

2170 PRINTag."150 sgname*="CHR*(3«)sgname2* .OAT "CHR*(34); [2510] 

2 180 PR INT* 9. " :mp='*MIO$(STR$(mp) ,2 ) ' ad2 = 6 HEX*(23)~ :ma= "MI0$( [3436] 
STR*(ma1.2) 

2190 FOR 1=210 TO 350 STEP 10 [1484] 

2200 a=(i-200)/10 [917] 

2210 PRI NT a 9 , USING'' ***";! ; [2084] 

2220 PRINT*9, ” ENV STR* ( a ) i [ 15821 

2230 FOR k=0 TO 1 [1301] 

2240 GOSUB 2390 [909] 

2250 NEXT [350] 

2260 PRINT*9. " :ENT SPACE*(-( te(aXO) )STR*(a = te(a) ) ; [4228] 

2270 FOR k=2 TO 4 [1010] 

2280 GOSUB 2390 [909] 

2290 NEXT:PRINT*9 [845] 

2300 NEXT . [350] 

2310 PRINT»9.USING'»#»*;1; [2084] 

2320 PRINT»9. ’OATA 0"; [860] 

2330 FOR 1=1 TO 15 [310] 

2340 PRINT»9,"."MI0*(STR*(rs(1)),2); [2159] 

2350 NEXT [350] 

2360 PRINT *9 [342] 

2370 CLOSEOUT [902] 

2380 RETURN [555] 

2390 FOR j=0 TO 2 [702] 

2400 x=e(a,k.j> [905] 

2410 IF x<0 THEN PRINT*9,-. "STR*<x) ; ELSE PR I NT*9.",”MI0*(STR [3314] 

* ( x ) , 2 ) ; 

2420 NEXT:RETURN [940] 

2430 ' [117] 

2440 'Funktionspositionen einiesen [1241] 

2450 ' [117] 

2480 RESTORE 2540 [906] 

2470 FOR k=l TO 7 (1079) 

2480 READ x.y.o.a [806] 

2490 FOR 1 = x TO y [1061] 

2500 FOR j=0 TO a [643] 

2510 f(1.J)=k [811] 

2520 NEXT 3.1,k [*07] 

2530 RETURN [555] 

2540 DATA 1,26.19,20.1.26.14.15,1.26,12,13,1.14,9,10 [2441] 

2550 DATA 24,26.9,10,1,28,17,18,34,38,0.1 [1922] 

2560 [117] 

2570 Rahmenroutine [1274] 

2580 ' [117] 

2590 PRINT CHR*(22)CHR»(1); [1379] 

2600 WINOOW J,40,k,25 [1659] 

2610 PRINT CHR*(1501STRING*(x-2,154 )ChR*(156) [2103] 

2620 FOR 1=3 TO y [356] 

2630 PRINT CHR*(149)I:LOCATE X.VPOS(»0):PRINT CHR*(149) [2992] 

2640 NEXT [350] 

2650 PRINT CHR*(147)STRING*(x-2,154)CHR*(153); [1977] 

2660 PRINT CHR*(22)CHR*(0); [1383] 

2670 WINDOW 1,40,1,25 [1024] 

2680 RETURN [555] 

2690 ' [117] 

2700 Clear Input [1483] 

2710 ' [117] 

2720 WHILE INK£Y*< >"" [1109] 

2730 WEND:RETURN (93SJ 


Listing Sound 


50 PC 


4’89 






Programm—i 



'= ABsprelroutine fuer - 

0 »» Konverterfile = 
* (C) 1989 PC AMSTRAD « 
= von A. Strol creH = 


80 MOOE 1 
90 OEFINT a-2 

100 OIM tp(96),rat 15) 

110 FOR K»0 TO 7:POR 1*1 TO 12 

120 tp(k * 1?♦t )=ROUNO(62500/440*<2"<4-k-<1 -10>/!2>)) 

130 NEXT 1,k 
140 MEMORY &A500 
160 1 

160 mpanp+1:adrx&ÖOOO.MEMORY UNT(UNT(aor+3276Ö)+32767) 
170 ad2=UNT<aa2*a3r) 

180 adO=ad2:aai=aö2*ma*2 ao2-aal*ma*2 
190 plaO = adr .plal«adr«64.p1a2*aär<128 
200 LOAO ignaneS, ndr 
210 ' 

220 
230 ’ 

240 ' 

260 
260 
270 ' 

280 1 
290 
300 ' 

310 ' 

320 1 
330 ’ 

340 
350 1 
360 

370 RESTORE:FOR 1«0 TO 15:REA0 rsfl):NEXT 
380 

390 Hauptprogramm 
400 ' 

410 GOSUB 460: Etnsprung »um ABsp'elon des L'eaea 
420 ENO 
430 • 

440 Liea aoapielen 
450 ' 


pl0=0 pll=0:p!2=0 

GOSUB 810 

G0SU8 840 

GOSUB 870 

SOUND 135.0.96,0 

IF(SO(1)ANO 7)THEN GOSUB 660 

1F 10 < 64 TUEN 550 

pl0=(pl0*l)M0D mp 

GOSUB 810 

1F(SO(2)ANO 7)THEN GOSUB 710 
IF I 1< 64 THEN 590 
pl 1= ( pl 1*1 )M0D mp 
GOSUB 840 

IF(SO(4)ANO 7 J THEN GOSUB 760 
tF !2<64 THEN 630 
pl2=(pl2«l)MOD mp 
GOSUB 870 

IF INKEY{12)THEN 510 
CALL 6BCA7:RETURN 

D=PEEK(UNT(adroi1)):a = B\16:d = PEEK(UNT(adr 
SOUND 1,tptPEEK(adrO)),d*12,b AND &F.a,a, 
10=10*d;aarO*UNT(adrO*3> 

RETURN 

b=PEEK(UNT(adrl41)J:a=b\16:d=PE£K(UNTladr 
SOUNO 2,tp(PEEK(adrl)3,d•12.b AND EF.a.a, 
llallfä:adrl=UNT(adr1+3) 

RETURN 

b=PEEK(UNT(adr2*l)):a=0\16:d=PEEK(UNT{adr 
SOUND 4,tp[PEEK(adr2)>.d*12.b ANO &F,a,a, 
12=12+d:adr2=UNT(adr243) 

RETURN 

nrO=PEEK(UNT(plaO«plO)>:c=UNT(adO+nrO*2) 
GOSUB 900:adr0=a:I0»0:RETURN 

nrl=PEEK(UNT(plal*pl1)):c=UNT(adl+nrl*2) 
GOSUB 900:adrlsa 11«0:RETURN 

nr2*P£EK(UNT(pla2»p!2)i:c = UNT1ad2+nr2*2) 
GOSUB 900:adr2=a:f2*0:RETURN 

a=UNT((PEEK(UNTfc+l))«256 OR PEEK<c>)+adr 
RETURN 
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Anwenderfreundliche Sorftware ist keine Frage des Glücks 
— sondern der Intelligenz! — 

Mit dem Programmpaket »PROFI-KALC« können Sie schnell & problemlos folgende 
Kalkulationen auf Ihrem »Amslrad CPC oderPCW 8256-9512« erstellen: 

1. Industriekalkulation (Aufschlagskalkulation); 2. Rückkalkulation; 3. Kalku¬ 
lieren von Maschinenstundensätzen; 4. Handeiskalkulation (Preiskalkulation 
von Waren) 

Betriebsspezilische Abänderungen der Programme können jederzeit nach Vereinbarung vorgenom¬ 
men werden. 

Das ausführliche und leicht verständliche Handbuch ist mit Übungsbeispielen versehen. 
»PROFI-KALC« ist lieferbar auf Diskettenformat 3" & 3,5" 

Einlührungspreis für »PROFI-KALC« DM 280,00 

Förden Sie unsere Zusatz-Software-Liste an. Händleranfragen erwünscht. 

Preise zzgl. Porto und Verpackung, Versand per Nachnahme. Liste kostenlos. 

K-A-S 

Kaufmännischer Anwender Service Software 
Postfach 1421, 6920 Sinsheim. Tel.: (07261) 1 3466 


Schalten - Steuern - Regeln mit dem JOYCE 

Endlich auch für die PCW-Reihe 8256/8512/9512 

Ideal für Schule. Unterricht. Ausbildung: Steuern Sie mit Ihrem JOYCE Ampelaniagen. Robote-mode^e. 
Schrittmotoren usw. 

Schaltmterface mit 8 Ausgängen und 8 Eingängen. Ausgänge über Hocnlast-Re as. Eingänge über Opto¬ 
koppler galvanisch von- Computer getrennt. Anschluß an den Computer direkt am Expansion-Port 
keine CPS 8256-Schnjttstel e erforderlich! Aus- und Eingangsverbindungen übe' 2.6 mm oder 4 mm- 
Bananenbuchsen. Es lassen sich bis zu 8 Interfaces parallel anschließen (64 AwW&ngänge). 


Betnebsfediges Interfaces mki. Netzteil und umfangreicher 
Bedienungsanleitung (mit BASIC-Programmbeispielen) _ 


Keybord-Verlängerung für PCW 8256/8512/9512 (nur solange Vorrat): 

Anschi ußfcrl iges Soira-kabel (graul 30 cm -100 cm _ 


Preise elnschl. PortoTVetpackung Bei Vorauszahlung. Bei Nachnahmeversarva DM 8,- Versandkosten. 
Info-Material kostenlos. 

E. Sinkwitz, Didakt. Hard- und Software, Zähringerstr. 7,7880 Bad Säckingen 



Neue Speichererweiterung für CPC 

• RAM-Erweiterung 64. 128. 256 oder 512K für alle CPCs 
Alle Versionen nachträglich auf Maximal-Verslon aufrüstbar 

' optional 2 EPROM-Sockel mit frei wählbarer ROM-Nummer (1-15) 

• Patchprogramm für CP/M 2.2 (63K CP/M). Endlich lauten dBase, Multiplan und Wordstar 

• Patchprogramm für CP/M Plus. CP/M Plus auch für CPC 464/664 

• resetteste RAM-Disc (maximal 448K) tür CP/M 2.2 und CP/M Plus 

• resetfeste RAM-Disc unter BASIC (nur bei EPROM-Vorsion) 

' 100% kompatibel zu dk'tronics RAM-Erwoiterung und Silicon-Disc 
' Anschluß über den Expansionsport (kein Eingriff in den Rechner nötig) 

• geringe Abmessungen (mit Gehäuse 160 x 83 x 20 mm) durchgeführter Erweiterungsbus 
RAM-Erweiterung mit Sottware tür CP/M 2.2 und CP/M Plus auf 3"-Diskette 
(wahlweise auch 3.5"- oder 5.25"-Diskelte) 

Preise, ohne RAMs.99,- DM 64 KByte. 149.- DM 128 KByte.199,- DM 

256 KByte.299 - DM 512 KByte. 449 - DM 

Aufpreis lür zusätzliche EPROM-Sockel und Sottware im EPROM 49,- DM 


X-Laufwerk für CPC 464/664/6128 

Das X-Laulwerk ist ein Systemlautwerk, das anstelle eines 3"-Z\veitlautwerks am CPC 664/6126 
mit eingebautem oder am CPC 464 mit zusätzlichem 3“-Controller betrieben wird. Das X-DDOS- 
Betriebssystem wird zusammen mit einet EPROM-Karte an den CPC angeschlossen 716 K nulz- 
bare Kapazität untor BASIC. CP/M 2,2 und CP/M Plus. 

• Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS 

• Es kann sottwaremäßig zwischen X-DDOS und AMSDOS umgeschaltet werden 

• Es werden Anpassungsprogramme für CP/M 2.2 und CP/M. Plus mitgeliefert. 

• Die CP/M Plus Anpassung isi auch auf einem CPC 464/664 mit 64K RAM-Erw lauflähig 

• Die 224-KByte EPROM-Karte hat bei installiertem X-DDOS noch eine Restkapazität von 
208 KByte 

• Damit X-DDOS auch in beliebigen anderen EPROM-Karten lauflähig Ist, wurde völlig auf 
einen Kopierschutz verzichtet 

■ Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden 

X-DDOS-EPROM, Sottware S Beschreibung 99.- DM 

224-KByte EPROM-Karte, X-DDOS. Sottware 8 Beschreibung 239.- DM 

5.25" oder 3.5" X-Lautwerk, 224-KByte EPROM-Karte, X-DDÖS. Softw & Beschr. 589. DM 

5.25" oder 3.5" X-Laufwerk, RAM-Erw ohne RAMs. X-DDOS, Softw 8 Beschr 589.- DM 

EPROM- Karte 224 KByte für alle CPC 

• Für die EPROM-Typen 2764, -128, -256 

• ROM-Nummorn 0-15 frei wählbar 

• 7 Sockel 

• Bei 27256 zwei ROM-Nummern pro Sockel 

• Durchgelührter Expansionsport 

• Software zum automalischen Erstellen von Programmodulen (BASIC und BIN-Dateien) 


Fertiggeräl lür CPC 464/664 DM 145, - Fertiggerät lür CPC 6128 

Modul-Software auf 3"-Diskelte DM 95,- 

Zubehör für EPROM-Karten 

EPROM 2764 OM 7.50 Protext EPROM DM 124- Max am [PROM 

EPROM 27128 DM8.50 Promerge Plus-EPROM DM114- Utopia 

EPROM 27256 DM11.50 X DDOSEPROM DM99,- Alpha ROM 

EPROM 27512 DM 21,50 Ttme-ROM (battenegeputlede Echtzeituhr) • EPROM 


OOBBERTlfl 


Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Telefon 06202/714 17 
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Die Assemblerecke 


Von der Wiege bis zur Bahre: 
Formulare, Formulare. . . 

Bereits in der letzten Folge der Assemblerecke wurden Routinen vor¬ 
gestellt, die es ermöglichen, mit Bildschirmausschnitten zu operieren. 
Hat man sich erst einmal in das Adressenlabyrinth des Bildschirm¬ 
speichers hineingewagt und dort Fuß gefaßt, so ist es nur noch ein 
kleiner Schritt bis zur Programmierung der berühmten Pulldown- 
und Pop-Up-Menüfenster, die zu einem modernen Programmdesign 
einfach dazugehören. Diese Folge liefert die restlichen Bausteine, die 
Sie brauchen, um Ihren Programmen den gewissen ‘professionellen 
Touch 4 zu verleihen. 


Allerdings gehört zu der ganzen Ange¬ 
legenheit auch etwas Bürokratie. Wenn 
ein Programm mit mehreren Fenstern 
operieren soll, braucht man solide 
Routinen, die zumindest einen Teil der 
Verwaltungsarbeit übernehmen. 

Der erfahrene Programmierer macht 
sich hier keine Illusionen: Ohne gut 
sortierte Datenstrukturen landet man 
bald im Chaos. So sind z.B. nur etwa 
10 Prozent eines durchschnittlichen 
Spielprogramms für die Bildschirmef¬ 
fekte zuständig, der Rest ist vollauf da¬ 
mit beschäftigt, irgendwelche ‘Formu¬ 
lare* im Speicher auszufüllen oder zu 
lesen. 

Deshalb werden wir uns zunächst ein 
paar Gedanken darum machen, welche 


Art Formulare für unser Fenstersystem 
geeignet ist. 

Sesam, öffne dich... 

Eine Routine, die ein Fenster auf dem 
Bildschirm ‘öffnet', muß natürlich 
wissen, an welcher Stelle und in wel¬ 
cher Größe. Diese Informationen (die 
Fenstergrenzen in Textkoordinaten) 
werden als Parameter beim Aufruf 
übergeben und in Bildschirmadressen 
umgerechnet — dieses Problem haben 
wir bereits in der letzten Folge gelöst. 
Aufgabe unserer Spezial-Window¬ 
routinen ist es jedoch auch, den durch 
das Fenster verdeckten Bildschirmin- 
halt irgendwo abzuspeichern. Es muß 
also ein reservierter Speicherbereich 


zur Verfügung stehen und so geschickt 
verwaltet werden, daß bei mehreren 
gleichzeitig geöffneten Pulldown-Win¬ 
dows kein Chaos entsteht. 

Auch die Routine, die ein Fenster 
‘schließt“, indem sie den ursprüng¬ 
lichen Zustand wiederherstellt, will 
eine Menge wissen: Wo wurde der 
Hintergrund abgespeichert? Aus wel¬ 
cher Bildschirmregion stammt er? Wie 
breit und wie hoch ist der Bereich? 
Diese Fragen lassen sich leicht beant¬ 
worten, wenn für jedes geöffnete Fen¬ 
ster das folgende Formular ausgefüllt 
wird: 

1. Speicheradresse des Hintergrundes 
(2 Bytes) 

2. Bildschirmadresse der linken obe¬ 
ren Ecke (2 Bytes) 

3. Breite des Bereichs in Bytes 
(1 Byte) 

4. Höhe des Bereichs in Rasterzeilen 
(1 Byte) 

Insgesamt enthält das Formular vier 
Einträge und belegt einen 6 Byte lan¬ 
gen Datenblock. Die erste Angabe soll¬ 
te schon zur Verfügung stehen, bevor 
das Fenster geöffnet wird, damit die 
zuständige Routine weiß, wo sie den 
Hintergrund ablegen kann. Sie könnte 
dann auf folgende Weise Vorgehen: 

— Entnehme dem Formular die 
Adresse für den Hintergrund. 

— Berechne aus den Fenstergrenzen 
die restlichen Angaben und trage 
sie in das Formular ein. 

— Speichere den Hintergrund ab und 
fülle den Bildschirmbereich mit 
einer Farbe. 

— Trage die Startadresse des noch 
verbleibenden Hintergrunds. 

— Speichere es in das Formular für 
das nächste Fenster ein. 

Ein Fenster 

sagt‘s dem nächsten... 

Auf diese Weise haben wir bereits eine 
einfache Speicherverwaltung organi¬ 
siert. Nur im ersten Formular müssen 
wir ‘per Hand* die Start-Speicher¬ 
adresse für Bildhintergründc eintra¬ 
gen. Danach sagt quasi jedes Fenster 
dem nächsten Bescheid, wie es weiter¬ 
geht. 

Das Schließen eines Fensters ist nach 
diesen Vorbereitungen eine relativ ein¬ 
fache Angelegenheit: 

— Suche das für das Fenster zuständi¬ 
ge Formular heraus. 

— Lese die Informationen. 

— Stelle den ursprünglichen Bild¬ 
schirminhalt wieder her. 

Wenn man die Angelegenheit genau 
durchdenkt, kommt man jedoch als- 
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bald ins Grübeln: Was ist eigentlich mit 
Fenstern, die sich gegenseitig überlap¬ 
pen? Angenommen, es wird ein Fen¬ 
ster geschlossen, das noch von einem 
anderen Fenster teilweise verdeckt 
wird... und an dieser Stelle wird es in 
der Tat ganz schön kompliziert. Doch 
da wir hier nicht unbedingt den Profis 
von Digital Research mit ihrer Benut¬ 
zeroberfläche GEM Konkurrenz ma¬ 
chen wollen (die haben schon genug 
Ärger mit Windows von Microsoft), 
werden wir eine Regel einführen, die 
die Fensterverwaltung wesentlich ver¬ 
einfacht: 

— Fenster dürfen nur in der umge¬ 
kehrten Reihenfolge geschlossen 
werden, in der sie geöffnet wurden. 

Beim Öffnen der Fenster wird also eine 
Art Formularstapel angelegt, und die 
Schließroutine darf nur das jeweils 
oberste Formular herunternehmen und 
bearbeiten. Es ist ihr verboten, etwas 
mitten aus dem Stapel herauszuziehen. 
Dieses Prinzip wird in Fachkreisen LIFO 
genannt (Last In, First Out), und damit 
es funktioniert, brauchen wir noch ein 
Byte im Speicher, das angibt, wie viele 
Fenster zur Zeit geöffnet sind, oder an¬ 
ders gesagt, wie hoch der Stapel ist. 

Und jetzt ein Blick auf das Assembler- 
listing mit den neuen Routinen: Für die 
Teile aus der letzten Folge wird zur 
Orientierung nur der ‘Header‘ mit den 
Ein- und Aussprungbedingungen ange¬ 
geben. Die Databox zu diesem Heft 
enthält jedoch den kompletten Assem- 
bler-Quellcode. 

Von Basic aus werden die Routinen 
nicht direkt aufgerufen, sondern über 
eine Ansammlung von ‘Sprungvekto- 
ren‘, die am Anläng des Listings ste¬ 
hen. Dieser kleine Umweg hat den 
Vorteil, daß man nach Änderungen in 
dem Maschinenprogramm nicht alle 
Basic-CALLs neu anpassen muß. Die 
Adressen der JP-Befehle bleiben stabil, 
auch wenn sich die Einsprungadressen 
der Routinen verschieben! 

Ab Zeile 500 wird mit der Assembler¬ 
direktive DS (Define Space) der Spei¬ 
cherplatz für die Formulare freigehal¬ 
ten. Ein Byte (Label ANZAHL) ist für 
die aktuelle Anzahl geöffneter Fenster 
vorgesehen; danach folgen 50 Bytes 
für 8 Formulare mit je 6 Bytes. Das 
System kann also maximal 8 geöffnete 
Fenster verkraften, was für den Haus¬ 
gebrauch reichen dürfte. Die Reservie¬ 
rung von 50 statt 48 Bytes ist notwen¬ 
dig, da das 8. (letzte) Fenster noch eine 


Speicheradresse für das nächste Fen¬ 
ster eintragen will (s.o). 

Eine Formel 
gegen Platzangst 

Die Routine IN1TW ab Zeile 2000 
dient dazu, die gesamte Fensterverwal¬ 
tung zu initialisieren. Zunächst sollte 
der Speicherplatz berechnet werden, 
den die geretteten Bildhintergründe 
insgesamt benötigen. Dabei hilft fol¬ 
gende Formel: 

Speicherplatz für ein Fenster = (unten- 
oben+l)*8 * (rechts-links + l)*mf 
wobei mf der in der letzten Folge er¬ 
wähnte MODE-Faktor ist (1 für MODE 
2, 2 für MODE 1,4 für MODE 2). 
Den Gesamt-Speicherplatz plus 1 zieht 
man von &A000 ab (dort beginnen die 
Window-Routinen) und erhält den er¬ 
forderlichen HIMEM-Wert, der mit 
MEMORY festgelegt wird. Die 
INITW-Routine empfängt die Adresse 
per CALL initw,HIMEM-l-1, trägt sie 
in das erste Formular ein und setzt wei¬ 
terhin die Anzahl der aktiven Fenster 
auf 0. Sehr wichtig: INITW muß ein¬ 
malig zu Beginn eines Programms auf¬ 
gerufen werden, bevor das erste Fen¬ 
ster geöffnet wird! Ansonsten gibt es 
mit Sicherheit grandiose Abstürze. 

Die Routine OPENW ab Zeile 3000 
besorgt sich zunächst mit CALL WIN- 
PAR wie in der letzten Folge beschrie¬ 
ben die Fenstergrenzen und berechnet 
daraus mit CALL WINADR die Bild¬ 
schirmadresse und die Ausmaße in By¬ 
tes. Danach informiert sie sich über die 
Anzahl bereits geöffneter Fenster, 
nimmt den Wert mit 6 mal und addiert 
die Startadresse des ‘Formularstapels 1 . 
Das Ergebnis, nämlich die Adresse des 
Formulars für das neue Fenster, wird 
in das Indexregister IY befördert (Zeile 
3240), das einen einfachen Zugriff auf 
die Werte ermöglicht. 

Nach dem Lesen und Schreiben des 
Formulars kümmert sich die Routine 
um die Farbe, mit der das Fenster ge¬ 
löscht werden soll (Zeile 3340). Sinn¬ 
vollerweise benutzt sie den aktuellen 
PAPER-Wert, der jedoch noch in ein 
Bitmuster umcodiert werden muß, das 
auf dem Bildschirm die entsprechende 
Farbe erzeugt. Diese komplizierte 
Aufgabe erledigen zwei Betriebssy¬ 
stemroutinen: TXT GET PAPER 
(&BB99) Input: Keine Bedingung 
Output: A enthält die aktuelle PAPER- 
Nummcr SCR INK ENCODE 
(&BC2C) Tnput: A enthält eine Farb¬ 
stiftnummer (PEN oder PAPER). 
Output: A enthält das codierte Farb- 
byte. 


Beide Routinen verändern nur den 
Akku und die Flags; alle anderen Regi¬ 
ster bleiben erhalten. 

Nachdem die Farbinformation ‘mund¬ 
gerecht 4 für den Videochip aufbereitet 
wurde, befördert eine doppelte Schlei¬ 
fe ab Zeile 3370 die Bildschirmbytes in 
den Speicher und das Farbbyte ins 
Video-RAM. Da hier zwei Aufgaben 
(Hintergrund sichern, Fenster löschen) 
in einem Aufwasch erledigt werden, ist 
die Routine sehr schnell! Zum Ab¬ 
schluß bleibt ihr nur noch übrig, das 
Formular für das nächste Fenster vor¬ 
zubereiten, und dann geht es zurück ins 
Basic. 

Die Routine CLOSEW hat es danach 
sehr einfach: Ihr müssen beim Aufruf 
keine Fenstergrenzen übergeben wer¬ 
den, da sie ja alle Angaben einem For¬ 
mular entnehmen kann. Nachdem sie 
die Variable ANZAHL um 1 vermin¬ 
dert hat, berechnet sie genau wie 
OPENW die Formularadresse, holt 
sich die Werte und schreibt den ur¬ 
sprünglichen Hintergrund zurück auf 
den Bildschirm. 

Was das Demo verschweigt: 
Routinen 

mit Selbstmordtendenzen 

Wer nachprüfen möchte, ob das Ganze 
auch funktioniert, kann zunächst das 
Basicdemoprogramm abtippen, das 
den kompletten Basiclader für die Win¬ 
dow-Routinen als Unterprogramm zur 
Verfügung stellt. Über die Maschinen¬ 
routinen bleibt noch zu sagen, daß sie 
zwar gut funktionieren, aber noch 
lange keine Ideallösung darstellen. 

Schön wäre z.B. eine Routine, die ein 
Fenster mit einem Rahmen versieht. 
Weiterhin fehlen noch reihenweise 
Sicherheitsabfragen. Wenn die Fenster 
mehr Speicherplatz benötigen, als vor¬ 
gesehen wurde, so werden die Win¬ 
dow-Routinen überschrieben und be¬ 
gehen damit quasi Selbstmord. Auch 
fehlt eine Sicherung gegen illegale 
Fenstergrenzen, was ebenfalls zum 
Absturz führen kann. Kurz gesagt: Das 
System ist in dieser Form nur für Pro¬ 
grammierer geeignet, die wissen, was 
sie tun. 

Allerdings ist es auch nicht Aufgabe 
der Assemblerecke, ‘Black Box‘-Kom- 
plettlösungen anzubieten. Deshalb: 
Werden Sie aktiv und bringen Sie das 
System zur Reife. 

(Matthias Uphoff/cd) 
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Grafik: 


■ , . cv l ...^r Computer 


Spiele für CPC 


Bubble Ghost 
Buggy Boy 
California Games 
Captain America 


Casa. Disk. 

47.90 
29.90 44.80 
29.30 39.90 
27.80 39.90 


1943 

20.000 Meilen 

unter dem Meer 

3DThaiBoxing 

Academy 

Afterburner 

Aliens 

Aliens us 

Americas Cup 

Challenge 

Arcade Force Four 

Armageddon Man 

Artura 

Astenx im 

Morgenland F 6128 

Axiens 

Bard'sTalel 

Batman 

Bedlam 

BiomcCommando 
Blueberryund das 
Gespenst 
Bomb Jack 2 


Cass. Disk. 

Catch 23 

26.20 

39.90 

29.30 44.80 

Championship Sprint 


47.90 


Charlie Chaplin 

29.90 


47.90 

Clever & Smart 

29.30 


26.20 43.30 

Crazy Cars 


46.40 

29.30 

Desolator 

29.30 

44.80 

47.90 

Dogfight 2187 


43.30 

29.30 

DunDaragh 

29.90 

39.90 

43.30 

Elevator Action 


37.10 


Empire Stnkes Back 

29.30 

44.80 

29.30 

EpyxfTheWorlds 



55.70 

Greatest) 

29.90 


38.60 43.30 

Escape from 



34.00 47.90 

Sings Castle 

26.20 

43.30 


Evening Star 

26.20 


43.30 

Exolon 

23.10 

38.60 

24.70 

Eye 


47.90 

46.40 

Fairlight 

29.90 


47.90 

Fifth Quadrant 


29.90 

44.80 

Fire & Forget, 

29.30 


44.80 

Fists’nThrottles 


47.90 


GalacticConqueror 

29.30 

44.80 

43.30 

Game Set and 



38.60 

Match 2 


58.80 


Games Set 
and Match 
Gauntlet2 
Get Dexter 
Giants Compilation 
Gold Silber Bronze 
Golden Path 
Great Escape 
Hacker 2 
Head over Heels 
Heavy on the 
Magick 

Hereos of the Lance 
High Frontier 
Impossible Mission 2 
Infodroid 
Jagd auf Roter 
Oktober 
Killeduntildead 
Knight Orc 
Lazer Tag 
Leaderboard Par 3 
Leben und sterben 
lassen 

LegendofKages 

Lightforce 

LivingDaylights 

LukyLuke 

Nitroglycerin 


Cass. Disk. 

38.60 54.10 
44.80 

29.90 

38.60 44.80 

43.30 

46.40 

23.10 

29.30 
23.10 

29.90 

29.30 44.80 
29.30 44.80 

29.30 44.80 

27.80 43.30 

44.80 58.80 
39.90 

43.30 58.80 

29.30 44.80 
53.70 

29.90 47.90 
38.60 
26.20 39.90 
43.30 


Mach 3 
Mad Balls 
Mag Max 
MarbleMadness 
Constr.De Luxe 
Marble Madness 
Constr. Set 
Mewilo6128 
Murderon the 
Atlantic 

Mysteryof the Nile 

Nebulus 

Nemesis 

Night Raider 

One 

Out Run 

Pacmama 

Peter Pan 

R-Type 

Roadblasters 

Rolling Thunder 

Rückkehr der 

Jedi Ritter 

Rygar 

Saboteur 

Saboteur 2 

Sentinel 

Shadowfire 

Shogun 


Cass. Disk. 


46.40 
26.20 43.30 
23.10 38.60 


Short Circuit 
Sidewalk 
SixPack3 
Slap Fight 
Space Harner 


43.30 
29.90 46.40 
23.10 

23.10 38.60 


43.30 


Spy Versus Spy 

29.30 43.30 



Spy Versus Spy 3 

26.20 39.90 

29.30 


Strange Loop 

46.40 


47.90 

Super Sprint 

39.90 



Supreme Challenge 

54.10 


57.20 

Survivor 

26.20 39.90 

19.90 

39.90 

Sweevos World 

46.40 


46.40 

Taipan 

39.90 

26.20 

43.30 

Tarzan 

27.80 39.90 


47.90 

Terror of the deep 

29.30 43.30 

29.30 

43.30 

Tetns 

38.60 

29.30 

44.80 

Throne of fire 

26.20 

34.00 


Thunderblade 

29.30 44.80 


47.90 

Tiger Road 

44.80 


47.90 

Trailblazer 

26.20 38.60 

29.30 


Trantor 

26.20 


44.80 

Trivial Persuit DT. 

47.90 59.90 1 



Typhoon 

47.90 

29.90 

47.90 

Vindicator 

29.30 47.90 , 

26.20 

39.90 

Winter Edrtion 

29.30 44.80 1 

29.30 

49.50 

Working Backwards 

46.40 1 


29.90 

Xevious 

29.30 43.30 

29.30 

43.30 

Xor 

27.80 43.30 1 

29.90 


Zoids 

46.40 1 

29.90 

49.50 

Zynaps 

39.90 


HARDWARE 


KUNSTLEDER-HAUBEN 


CPC 464/664 . 

CPC 6128 . 

Monitor GT 64/65 . 

Monitor CTM 640/644 


19.80 
19.80 

27.90 
29.95 

24.90 

EuroPC Tastatur. 21.80 

EuroPC Monitor MM 12. 34.90 

EuroPC Monitor CM 14. 37.90 

EuroPC Tastatur u. MM 12. 49.80 

EuroPC Tastatur u. CM 14 . 55.80 

PC 1512/1640 Tastatur. 19.80 

Schneider PC 2640 Tastatur. 19.80 

no name MF Tastatur. 19.80 

PC 1512/1640 eintlg.komplett. 49.80 

PC 1512/1640 zweitlg. Set. 59.80 

DMP 2000/2160/3000/3160 . 19.80 

Star NL/ND/NR 10. 24.90 

Star LC 10. 24.90 


AMSTRAD 


PPC 512 .ab 1698.00 

PC 1640 . zum Superpreis 

VGA Monitore für jeden PC_ab 499.00 

Netzwerk. 1998.00 

CPC 464 und Grünmonitor GT 65 398.00 
CPC 464 u. Farbmonitor CTM 644 698.00 

CPC 6128 und Grünmonitor GT 65 798.00 

CPC 6128 u. Farbmonitor CTM 644 1098.00 


CPC-ZUBEHÖR 


Kabel CPC/an Fernseher m. Scart .. 

Bildschirmfilter GT 64/65 . 

Bildschirmfilter CTM 640/644 . 

Druckerkabel 464/664 . 

Druckerkabel 6128. 

Monitorverlängerung CPC 464 . 

Monitorverlängerung CPC 664/6128 . 34 

Musik-/Data-Recorder . 69.00 

Kabel Computer/Recorder . 19 


IS 

29 

i 

39 

.95 

29 

n 

29 

ft 

27 

ft 

34 

Pi 

69 

.00 

19 

.80 


Technische Daten des Amstrad PC 2086: 


Prozessor: 

Geschwindigkeit 

Coprozessor: 

Hauptspeicher 

Massenspeicher: 


Tastatur: 

Steckplatze 

Lieferumfang: 

Software. 

Maus: 

Bildschirme: 


16 Bit 8086 
8 MHz 

8087 auf dem Board möglich 
640 KB RAM 

720 KB 3'/z ''-Diskettenlaufwerk 
(loder2) opt 30MBFestplatte 
externe 5V« "-Lautwerke (360 KB, 

720KB, 1,4 MB! oder Tape Streamer 
VGA-Standard, 640x480 Punkte. 

256 Farben. EGA, Hercules und 
CGA kompatibel 

102 Tasten, erweiterte AT-Tastatui IMF 11) 

3 x 8 Bit für Slandardkarten veiler Länge 

MS-DOS 3,3 Betriebssystem, 

GW-BASIC, Windows 2 03 
Zwei-Taston-Maus, Microsoft kompitabel 
Entspiegelte VGA-Monitore mit 
Schwenk- und Drehfuß 
PC 12 MD Standard. 12' positiv 
monochrom 64 Graustufen 
PC 14 CD optional, 14" Farbe, 0,42 Dot Pitch 
PC 12 HRCD optional, 12" Farbe, 0 28 Dot Pitch 
PC 14 HRCDoptional. 14 " Farbe. 0.29 Dot Pitch 


DISKETTEN 


Schneider 5V4" 2D 

10 Stück mit Hartbox. 29 

no name 5'/4" 2 D 10 Stck. 9 

BitStar 5V 4 " HD 10 Stck. 39 

Verbatim 3 Vi” 720K 10 Stck. 29 

Schneider 3'/2" HD 10 Stck. 79 


20 MB Festplatte 

incl. Controller und Kabelsatz 
zum Einbau in PC 1512/3640 


ab 2499.- 


648 .- 


! PC-ZUBEHÖR 


Diskettenlaufwerk 3V2", 

720 KB mit 5 1 4" Einbaurahmen 
auch für PC 1512/1640 . 

278. 

20 MB Festplatte zum 

Einstecken (Filecard) . 

798. 

Joystickkarte XT/AT für 

2 Analogjoysticks. 

. 59. 

Analogjoystick Quickshot . 

34. 

Mouse Pad. 

14. 

3-Tasten-Mouse incl. Soft¬ 
ware u. 9/25 pol. Adapter. 

nur 79. 

BTX-Lösungen . 

P.a. 
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Cm. Disk. 
23.10 

43,30 

29.90 46.40 
23.10 

23.10 38.60 

29.30 43.30 
26.20 39.90 

46.40 

39.90 

54.10 

26.20 39.90 
46.40 

39.90 

27.80 39.90 

19.30 43.30 
38.60 

16.20 

29.30 44.80 
44.80 

1620 38.60 
16.20 

17.90 59.90 

47.90 
29.30 47.90 

29.30 44.80 
46.40 

9.30 43.30 

7.80 43,30 
46.40 

39.90 
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- 4620 CASTROP-RAUXEL 

35 tel. (0Z3 ^ 3770 ^ fflsar 


Spiele für PC 


F-16 Combat 
Pilot EGA 
F-16Falcon 
F-16 Falcon AT/ 
EGA Version 


20.000 Meilen 
unter dem Meer 59.90 

2400 AD 74.30 

3D Helicopter 63.50 

4x4 0ffRoadRacing 55.70 

500 CC Grand Pnx " 74.30 

Ace 65.50 

Ace 2 54.10 

Ace of Aces 89.90 

Action Service 59.90 

Adventure Creatorll7.70 
Altemate 

Reality City 63.50 

Ancient Battle 74,30 

Apollo 18 77.10 

ArcticFox 77.10 

Aikanoid 58.80 

Armageddon Man 68.50 

Asterix im 

Morgenland 59.90 

B-24 Bomber 74.30 

Bad Cat 59.80 


Boulderdash 2 
Börsenfieber 
California Games 
Captam Blood 
Chamomx Challengc 
Charlie Chapiin 
Checkmate 
Chcssmaster 2000 
Chuck Yeagers 
Adv. Fl. T. 

Circus Games 
Classiques 1 
Classiques 2 
Computer Baseball 
Corruption 
Crazy Cars 
Crazy Cars 2 
Create a Calendat 
Cutthroats 


F-19Stealth Fighter 129.10 
Final Assault 55.70 
Final Frontier 78.70 
Fire & Forget 69.90 
Firezone 78.70 

Fish 78.70 

Flight S. Disc 1 Texas 46.40 
Fliglu S. Disc 2 Arizona 46.40 
FlightS.Disc 3 Caüf 46.40 
Flight S. Disc 4 
Washington 46.40 


Grand Pnx 
Circuit Dt, 

Grand Pnx Tennis 
Hacker 2 
Hanse 
Hardball 
Hell Cat Ace 
Hereos of the Lance 
Hollywood Hijinx 
Hostages 
Impact 

Impossible Mission 2 
Indian Mission 
Infocom Tnpie Pack 
Insider Trader 
Jagd auf Roter 
Oktober 
Jeanne D'Arc 


MacAdam Bumper 58.80 
Mach 3 77.40 

Manhattan Dealers 74.30 
Maahunier Ny 93.40 
Maniac Mansion 78.70 


Marble Mädness 74.30 


Metropolis 59.90 

Mewilo 66.60 

Microprose Soccer 77.10 

Might and Magic 89.90 

Moebius 74.30 


Motorbike Madness 47.50 


Night Raider 
Ninja Mission 


Off Shore Warrior 55.70 


Telefonische Bestellung: 

( 02305 ) 3770 

(Tag und Nacht) 


Balance of Power 79.90 


Bard's Tale 1 79.90 

Bard's Tale 2 74.30 

Battle for Normandy 85.80 
Battle for Antietam 85.80 


Baitlechess 77.10 

Battletech 93.40 

Bedlam 58.80 

Better Dead 

Chan Alien 58.80 

Billard Sim. Dt. 77.40 

Biomc Commando 55.70 

Black Jack Academy 78.70 


Black Jack 
Blueberryunddas 
Gespenst 
Bob Moräne 
Science Fiction 
Boulderdash 1 


Dakar 89 Dt 
Dark Castle 
Darkside 
Deadline 
Def Con 5 
Defender ol 
the Crown 
Defender of the 
Crown Ega AT 
Desert Rats 
Double Dragon 
Dream Warrior 
Driller 

Dschungelbuch 
Echoion 
Eddy Edwards 
Super Sky 
Elite 

Emmanuelle 

Epyx2 

Espionage 


Flight S Disc 5 Utah 46.40 
Flight S. Disc 6 Kansas 46.40 
Flight S. Disc 7 Florida 46.40 
Flight S Disc 11 
Michigan 46.40 

Flight S Disc Japan 46.40 
Flight S.Disc 

San Francisco 46.40 

Flight S. Western 
European 46.40 

Flight Simulator 123.90 
Flight Simulator 3 139.40 

Football Director 2 78.70 

Football Manager 2 59.90 
Frank Brunos Boxing 58.80 
Freedom 59,90 

Galactic Conquerar 74.30 
Game Over H 77.10 
Gauntlet 58.80 

Gnome Ranger 43.30 
Goldrush 97.60 


Jet 109.90 

Jinxter 77.40 

Jonah Barnr.gton's 
Squash 34.60 

Kampfgruppe 59,80 

Karting Grand Pnx 46.40 

King of Chicago 97.60 

King Quest 3 59.90 

Kings Quest 

3er Pack 79.90 

Xings Quest 4 114.80 

Krnght Games 29.90 

Knight Orc 59.90 

Kmghlsoi the Desert 68.50 
L A. Crackdown 74.30 

Lancelot 55.70 

Leisure suit Larry 63.50 

Leisure suit Larry 2 79.90 

Lombard Rac Ralley 83.10 

Luky Luke 

Nitroglyzerin 57.20 


One on One II 77.10 

Ooze 77.40 

Operation 

Marketgarden 68.50 

Operation Neptun Dt 77.40 
Paul Whitehead 
Teaches Chess 147,20 
PC Gold Hits 55.70 

Pete Rose 83.10 

Peter Pan 59.90 

Phantasie 49.90 

Phantasm 74.30 

PHM Pegasus 74.30 

Pirates 79.90 

PlayhouseStrippoker 34.60 
Police Quest 63.50 

Police Quest 2 79.90 

Pool of Radiance 74.30 

Portal 79.90 

President is Missmg 74,30 
Program Wars 68.50 

Psion Chess 77.40 

PT 109 93.40 

Quadralian 77.10 

Questron 2 74.30 

R.Z. Mittelpunkt 
d. Erde 59,80 

Rasterscan 47.50 

Rockford 63.90 

Roger Rabit 79.90 

Rogue 29.90 

Saboteur 2 43.30 

Sapiens 74.30 


Saigon 3 
Sentinel Words 
Seven Cities of Gold 
Sherlock 
Sidewinde: 

Sinbad 

Skyrunner CGA 
Soko Ban 

Sommer Olymp 88 
Space Quest 1 
Space Quest 2 
Speed Ball 
Spitfire Ace 
Star Goose 
Star Rank Boxing 
Star Trek EGA+AT 
Star Wars 
Starflighl 
Starglider 
Starray 
Stationfall 
Stellar Crusade 
Storm 

Street Sports 

Baseball 

Street Sports 

Basketball 

Street Sports Soccer 

Strike 

Strike Force Harrier 
Sub Battle Simulator 
Summer Edition 
Superman 
Superstar icehockey 
Superstar Soccer 
Suspect 

Teenage Queen Dt. 
Test Drive 
Tetris 

The Enforcer 



The Pawn 

74.30 

69.90 

The Train 

77.10 

77.10 

Thexdor 

58.80 

59.80 

Three Stooges 

83.10 

89.90 

Thunderblade 

78.70 

29.90 

Times of Lore 

78.70 

93.40 

Titan 

74.30 

24.50 

Tomahawk 

77.10 

65.50 

Trackei 

58.80 

83.10 

Traz CGA 

24.50 

63.50 

Triple Pack 

86.90 

63.50 

Trivial Pursuit 


75.40 

Gemus Dt 

77.40 

49.90 

Ultima 4 

78.70 

74.30 

Ultima 5 

85.80 

77.40 

Universal Military 


83.10 

Scenery 1 

39.90 

59.90 

Universal Military 


74.30 

Scenery 2 

39.90 

59.90 

Umversal Military 


59.80 

Simulator 

79.90 

88.30 

Valcon 

65.50 

77.10 

Vectoball 

47.90 

29.30 

Vermeer 

77.40 


Volleyball Simulator 

59.80 

77.10 

Wallstreet Wizzard 

69.90 


War in Middle Earth 

78.70 

66.60 

Wildern ess 

97.60 

cc 70 


7/1 7A 

33. /U 

YV Ü1UW 


29.30 

Winter Edition 

59.80 

77.40 

Winter Games 

68.50 

66.60 

Winter Olympiad 88 

79.90 

77.10 

Wishbünget 

88.30 

79.90 

Witness 

88.30 

69.90 

Wizball 

58.80 

88.30 

World Class 


88.30 

Leaderboard 

66.60 

63.50 

World Games 

69.90 

85.80 

World Series Baseball 49.90 

58.80 

World Tour Golf 

77.10 

34.60 

Zak McKracken 

65.00 


So finden Sie unser Ladengeschäft: 

A 42 (Emscher-Schnellweg) Abfahrt 
Castrop-Rauxel, B 235 Richtung Witten, 2. 
Ampel rechts,_ 1. Ampel links, dann 2 
Ampel links. Über 60 Parkplätze stoben 
Ihnen direkt am Hause kostenlos zur 
Verfügung. 


HARDWARE 


ACHTUNG! Schneider 


Modell TowerAT System 220 


Erfragen Sie bitte Preise 
und Lieferzeiten der neuen 
Schneider-80386-Systeme! 


Technische Daten: 


CPU 

CPU-Clock 
Hauptspeicher 
auf der Platine 
Festplatte 


80386 

max. 25 MHz 


EuroPC ab 998.00 

EuroPC 5V4 " LW 398.00 

EuroPC 3Vz " LW 398.00 

EuroPC 20 MB Festplatte 998.00 
Telefax ab 1998.00 


CPU: 

CPU-Clock 

Co-Prozessoi 

Haupt¬ 

speicher: 


Disketten¬ 

laufwerk 


Grafikkarte 


max. 8 MB 
60 bis 333 MB. 

16 ms Zugriffszeit 
VGA 


Software 



Festplatte. 

Video- 

adaptei: 


is ' | ■ - !i 

aflü 


Kirschbaum-Link 
CGA-Emulation f. d. 
monochromen Monitor: 
Multiscreen 1640 
Multiscreen Euro PC 


Mitgeliefeite 

Software: 


80286 

10 MHz, OWaitscate. Landmark: 13 MHz 
80287, optional 

RAM 512KB.aufderHauptplaune 
erweiteibar auf 1 MB, ROM 96 KB. 
Phoemx-Bios und EGA-Bios 
Ein oder zwei Laufwerke 3.5" mit 720 KB 
Optional: ein externes 5.25' -Laufwerk 
mit 360 KB 

3,5 "-Magnetplattenlaufwelk mit 20 MB 
Auf der Hauptplatine integrierter Multi- 
fu.ok!icns-Graf:k-Chip für folgende Modi 
und Auflösungen (Auto-Switch): 
Hercules CGA EGA. Hi-res EGA mit 
bis zu 800 x 600 Punkten u. 16/64 Farben 
battenegepufferte Echtzeituhr 

- Reset-Taster 

- Komfortables Setup-Menü zur 
Hardware-Konfiguration und 
Einstellung des Video Modus 

102 Tasten (MF-kompatibel) 
integriertes Anwendungspaket 
MICROSOFT'-WORKS (Textverar- 
beitung. Datenbank, Kalkulation, 
Kommunikation, Grafik) 


Betriebs¬ 
system MS-DOS3.3. QW-BASIC 
Versionen 

TowerAT 201 1 Diskettenlaufwerk 

TowerAT 202 2 Diskettenlaufwerke 

TowerAT220 - 1 Disk-Laufwerk - 1 Festpl-Laufwerk 

inci Monitor ab DM 2499.- 


Modell TowerAT System 260 


Haupt¬ 

speicher 

Disketten¬ 

laufwerk 

Festplatte 


12,5 MHz. 0 Wan state 
Landmark 16.5MHz 


RAM 1 MB, auf der Hauptplatine 
Ein Laufwerk 3,5 Zoll mit 1,44 MB 
(formatiert) 

3,5 Zoll Festplattenlaufweik mit 60 MR 
formatiert, mittlere Zugriffszeit 25 ms, 


incl. Monitor ab DM 5498.- 


Monitore: 

MM12 - Monochrome Monitor 12“ 

CM14 Farb-Monitor 14' Bildschirmdiagonale 
EM 14 EGA-Monitor 
MS 14- Multisync 


Wir haben eine große 
Auswahl an PC-Zubehör. 
Fragen Sie bitte nach. 


Ladengeschäftszeiten: 
Montag-Freitag 9.00 - 13.00 Uhr 
15.00 - 18.30 Uhr 


Samstag 9.00 — 14.00 Uhr ■ -—- ——*-*• 

Langer Samstag 9.00 - 18.00 Uhr ° P Gr Nachnahme O per Vorkasse 


O Senden Sie mir bitte Ihren Katalog 
(2,- DM in Briefmarken liegen bei) 
Hiermit bestelle ich 


BESTELLSCHEIN 


Versand per Nachnahme zuzügl. Versandkosten. Oder Vorkasse 
auf Psch.-Kto. Nr. 69422-460 PschA Dortmund zuzügl. 6, DM Ver¬ 
sandkosten. 

Ausland nur per Vorkasse auf Psch.-Kto. zuzügl 10, - DM Versand¬ 
kosten. Bitte bei allen Bestellungen Computertyp angeben! 


O Incl. kostenlosem Katalog 


Vorname. Name 


Straße, Hausnummer 


Besuchen Sie unser Ladengeschäft und lassen Sie sich durch i 
unser geschultes Fachpersonal beraten. Wir haben laufend • PLZ 0n 
günstige Angebote und stark reduzierte Vorführgeräte. 


Imumpf und Proinnndorungm Vorbehalten 


I Computer- und Monitortyp 


Datum Unterschrift 










I Assembler 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

500 

510 

520 

530 

540 

550 

560 

570 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 


;«*»»******«********************* 

;Sprungtabelle fuer die 
[Window-Routinen 

ORG &A000 

JP INVERS 
JP INI TW 
JP OPENW 
JP CLOSEW 

;******»»************************* 
;Speicherplatz fuer die 
[Window-Formulare 


ANZAHL DS 1 
FORMUL DS 50 


;akt. Anzahl Windows 
;PI atz f. 8 W1ndow- 
;Parameterbioecke 


********************************* 
; Bildschirmausschnitt invertieren 
;Aufruf: 

;CALL adr,1inks,rechts.oben.unten 

INVERS ;siehe letzte Folge 

;************************««****** 
iWindow-Verwaltung initialisieren 
;Aufruf: CALL adr,Startadresse 


INI TW XOR A 
LD (ANZAHL), 
LD L,(IX+0) 
LD H,(IX+1) 
LD (FORMUL), 
RET 


HL 


Akku loeschen 
Anzahl W1ndows=0 
Lobyte Startadr. 
Hibyte Startad r. 
Adresse eintragen 
-> Basic 


•*******»»«*************:******:*** 
;Fenster oeffnen und Hintergrund 
;abspeiehern 
;Au f ru f: 

;CALL adr,links,rechts.oben.unten 

GPAPER EQU &BB99 ;TXT GET PAPER 
ENCODE EQU &BC2C ;SCR INK ENCODE 

OPENW CALL WINPAR ;Basic-Params 
CALL WINADR ;-> Screenadr. 


PUSH HL 
LO HL.ANZAHL 
LD A,(HL) 

INC (HL) 

LD E.A 
ADD A . A 
AOD A, E 
ADD A , A 
LD L , A 
LD H , 0 

LD DE,FORMUL 
ADD HL,DE 
PUSH HL 
POP IY 
LD E,(IY+0) 
LD D,(IY+1) 
POP HL 
LD (IY+2),L 
LD (IY + 3 ) , H 
LD (IY+ 4 ) , B 
LD (IY+ 5 ) , C 

CALL GPAPER 
CALL ENCODE 


Screenadr.- retten 


A = Anz. Windows 
Anzahl erhoehen 


* 2 

* 3 

* 6 

Ergebnis nach HL 


Start Formulare 
addieren 

Start Param.block 
nach IY 
Start freier 
Speicher nach DE 
Screenadr. holen 
in Param.block 
e i nt ragen 
Breite eintragen 
Hoehe eintragen 

Papei—Nr. holen 
Farbbyte erzeugen 


Listing Formular 


3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

5000 

5010 

5020 

5030 

5D40 

5050 

5060 

5070 

5080 

5090 

5140 


OLOOP1 PUSH BC 
PUSH HL 
LD C , A 

OLOOP2 LD A,(HL 

LD (DE),A 

LD (HL),C 

INC HL 

INC DE 

DJNZ OLOOP2 

POP HL 

CALL LDOWN 

LD A , C 

POP BC 

DEC C 

JR NZ.OLOOP1 

LD (IY+ 6 ) ,E 
LD (IY+ 7) ,D 

RET 


; Bre 
; Scr 
; Far 
) ;Sc 
I spe 
; daf 
; Sc r 
; Spe 
; -> 

; Sta 
; Zei 
i Far 
; Bre 
; Hoe 
; - > 


ite/Hoehe und 
eenadr. retten 
bbyte nach C 
reenbyte 
ichern und 
uer Farbbyte 
eenad r .+1 
1 che rad r.+1 
naechstes Byte 
rtad r. Zeile 
le nach unten 
bbyte nach A 
ite/Hoehe 
he - 1 

noch nicht 0 


naechste freie 
Speicheradresse 
eintragen 
-> Basic 


;********»«********************«» 
;Fenster schliessen, Hintergrund 
;restaurieren 

;Auf ruf:CALL adr (ohne Parameter) 


. A 


CLOSEW LD A 
OR A 
RET Z 
DEC A 

LD (ANZAHL) 
LD E , A 
ADO A , A 
ADD A , E 
ADD A , A 
LD L , A 
LD H , 0 
LD DE.FORMU 
ADD HL,DE 
PUSH HL 
POP IY 
LD L,(IY+0) 
LD H, (IY+1 ) 
LD E, (IY+2 ) 
LD D,(IY+3) 
LD C,(IY+4) 
LD B,(IY+5) 


CLOOP PUSH BC 
PUSH DE 
LD B , 0 
LDIR 

POP DE 
EX DE,HL 
CALL LDOWN 
EX DE,HL 
POP BC 
DJNZ CLOOP 
RET 


,(ANZAHL);Anz. Windows 
= 0 ? 

fal1s ja zurueck 
sonst Anzahl-1 
me r ken 


* 2 

* 3 

* 6 

Ergebnis nach HL 

;Start Formulare 
;addieren 

;Start Param.block 
;nach IY 

;Adresse Hintergr. 
;nach HL 

;Screenad r. 1i/ob 
; nach DE 
;Breite nach C 
;Hoehe nach B 

;Hoehe/Breite und 
[Screenadr. retten 
[Hibyte BC = 0 
[Zeile aus Speicher 
;zum Bildschirm 
[Start Screenzeile 
[nach HL 

[Zeile nach unten 
;und wieder nach DE 
;Hoehe/Breite 
;-> naechste Zeile 
;-> Basic 


******************************** 
SUB Window-Grenzen von Basic 
uebe rnehmen 

OUT: H=Textspalte links 
L=Textzeile oben 
D=Textspalte rechts 
E=Textzeile unten 

WINPAR [siehe letzte Folge 

;**********************«********* 


Listing Formular 
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CPC Software für alle Fälle 


-iFantastic Four- 

vier Super-Programme zum kleinen Preis 

Die neue CPC-Spieiebox enthält vier ausgesuchte TOP-Programme der Spitzenklasse. Da ist für jeden das richtige dabei! 


COCKAIGNE 

- ist ein echtes Weltraum-Actionspiel mit 
allem, was zu dieser Art von Software ge¬ 
hört. Die Erde kann das immer größer wer¬ 
dende Ozonloch nicht mehr verkraften, die 
Expedition COCKAIGNE soll in fernen Ga¬ 
laxien neue Lebensräume erkunden. Als 
Leiter dieser Expedition haben Sie alle 
Hände voll zu tun... 

TERRANAUTI 

- deutsches Science-Fiction-Adventure 
mit hervorragender Grafik. Vor 50 Jahren 
startete das letzte Generationen-Raum- 


schiff TERRA von der Erde, um das Plane¬ 
tensystem Sirius zu kolonisieren. Durch 
eine kosmische Katastrophe verschwand 
die TERRA spurlos. Erst Jahre später fing 
eine Hyperfunkstation einen Funkspruch 
auf - die TERRA wurde in eine andere 
Galaxis katapultiert! Übernehmen Sie die 
Rolle des Commanders von Thaifun, dem 
ersten Galaxienkreuzer, und begeben Sie 
sich auf die Suche nach dem Raumschiff 
TERRA. 

FRUITS 

- Als Bauernsohn Frank jun. ist es Ihre 


Aufgabe, die Ernte der Felder einzufahren. 
Bei Ihrem Vorhaben werden Sie allerdings 
von den "bösen Nasen“ am Gelingen ge¬ 
hindert, zudem sind einige Feldfrüchte 
ziemlich ungesund. Fruits ist ein Ge- 
schicklichkeits- und Actionspiel der Extra¬ 
klasse, besitzt eine ausgefeilte Grafik und 
gewährt lange Spielfreude. 

TERRANAUT II 

- die Überlebenden. Nachdem Sie den 
ersten Teil gut überstanden haben, kommt 
sogleich die nächste Aufgabe auf Sie zu. 
Sie haben den Planeten gefunden, auf 


dem das vermißte Raumschiff TERRA ge¬ 
strandet ist. Nun gilt es, nach etwaigen 
Überlebenden der Katastrophe zu for¬ 
schen. Terranaut II ist ein deutsches Text- 
adventure mit vielen interessanten Featu¬ 
res und einer spannenden Story, 

Für alle CPCs nur . 

als3-Diskette . N A/1, 


Best.-Nr. 1011 


49,- DM* 


ConText 


Damit das Schreiben 

wieder Spaß macht —— 

Der Klassiker: 

Context CPC - bis heute ungeschlagen in der Gruppe der Textverarbeitungen. Dieses Pro¬ 
gramm besticht vor allem durch seine leichte Anwendungsart, die selbst unerfahrenen Com¬ 
puterbesitzern den Umgang mit einer Textverarbeitung möglich macht. 

Context CPC - das heißt: 

Einfachste Bedienung durch logische Tastaturbelegung; alle Funktionen sind über die 
CONTROL- und eine definierte Taste zu erreichen. 

Funktionen wie EINFÜGEN, FLIESSTEXT, BLOCKFORMATIERUNG und ZEILEN KOPIEREN 
sind über Tastendruck aufrufbar und werden in einer Statuszeile angezeigt. 

Mehrspaltiges Schreiben und Textkopieren erleichtert Ihnen das Erstellen Ihrer Korrespondenz. 
25 KByte Textspeicher mit insgesamt 5 DIN-A4-Seiten, damit Sie auch lange Briefe problem¬ 
los erstellen können. 

Voreingestellt für die meisten CENTRONICS- Drucker, durch übersichtliche Tabellenprogram¬ 
mierung anpaßbar an viele EPSON- kompatible Drucker. 

Weiterschreiben während des Drückens, denn 'Time is Money’. 


CPC 


Autor: Matthias Uphoff 


Darstellung von Sonderschriften wie VERGRÖSSERN und UNTERSTREICHEN, Anzeigen von 
anderen Schriftarten durch Steuerzeichen, denn Sie wollen ja sehen, was Sie drucken. 

Auf Diskette / Kassette gespeicherte Textbausteine sind überall im Text plazierbar, das erspart 
doppelte Schreibarbeit. 

Eingebauter Taschenrechner und Kalender, damit Sie den Überblick behalten. 

Dies sind nur einige der vielen Möglichkeiten, die Context Ihnen als Textverarbeitung bietet 

Der benötigte Hardware-Aufwand ist gering. 

Sie brauchen nur einen CPC 464’/ 664 oder 6128 und einen Drucker. Alles andere erklärt Ih¬ 
nen die ausführliche deutsche Bedienungsanleitung, welche dem Programm beiliegt, * 

Und wo gibt’s Context CPC ? 

Bel DMV zu bestellen als ^ 


3“-Diskette (Best.-Nr. 207) 
Kassette (Best.-Nr. 206) 


59,- DM* 
49,- DM* 


Copyshop 


Das universelle Hardcopy-Programm für CPC 464/664/6128 - Autor: Matthias Uphoff 


Copyshop Im Detail: . .. .u, 

- Hardcopy in 4 (!) Formalen: DIN A4, DIN A5,13,5x8,5 cm und 215x13,5 cm - superschnelle Hardcopy- 
Routine: DIN A4 in ca. 4 Minuten (DMP 4000) - arbeitet in allen 3 Modes - Anpaßmenuetür JEDEN 
Epson-kompatiblen Drucker - läuft ebenfalls mit den Seikosha-Druckern GP-500 CPC, GP-550 CPC 
und GP-1000 CPC - Anpassung an Drucker möglich, die mit 1280 Punkten pro Zeile arbeiten, z.B. 
CPA-80 GS - Okimate ML 182 - Anpassung kann beim Verlag angefordert werden - Anpassung auch 
für Drucker möglich, die die Bitbild-Bytes verkehrt herum drucken (das MSB unten statt oben), z.B. NEC 
P2-Pinwriter. - 32 Farbraster über Menue wählbar - Grafikeditor - komfortable Pull-Down-Menues 

- Schnelle Fill-Routine - Beliebige Ausschnittvergrößerungen - Bildschirm invertieren - selbstre- 
lozierende Hardcopy-Routinen für eigene Programme - neue Save- und Load-Routinen erkennen au¬ 
tomatisch Mode und Farbwerte - Freezer - saved auf Tastendruck Screenshots aus laufenden BASIC- 
Programmen, die anschließend ausgedruckt werden können. 


• Das aut dem Datenträger mitgelieferte Programm -Screen Save», welches beliebige 
abspeichert, arbeitet nur nach Entfernen des Vortex-Controllers. 

Und die Weitneuheit: Hardcopy-Simulation auf dem Bildschirm! 

Sie können sich Ihre Hardcopy vor dem endgültigen Ausdruck auf dem Bildschirm ansehenl 

COPYSHOP ist das ultimate Hardcopy-Programm für alle CPC Computer . 
(inkl. ausführlicher Bedienungsanleitung) _ y 

Kassette (Best.-Nr. 201) 

3“-Diskette (Best.-Nr. 202) -KT 

5 1/4“-Vortex (Best.-Nr. 203) ^ 


Screens auf Disk 


59,- DM* 
69,- DM* 
69,- DM* 


l4N/?Vl 


kann eine unbegrenzte Anzahl von 
Fragen und Antworten verwalten • 
hat ständig ca. 400 Fragen plus Ant¬ 
worten im Speicher • bietet die Mög¬ 
lichkeit, eigene Fragen einzugeben, 
und zwar mit einem komfortablen 
Editor • besitzt eine Supergrafik mit 
Window-Technik • ist vollkommen 
menuegesteuert ■ zeigt bis jetzt 
noch nie dagewesene Tricks mit dem 
Videocontroller • stellt zu jeder Fra¬ 
ge 5 mögliche Antworten vor ■ kann 
man mit der ganzen Familie spielen, 
da jeder eine Mindest-Chance von 
1-5 hat • muß man mit Strategie 
spielen, da der Beste in jedem Wis¬ 


sensgebiet am Ende noch Zusatz¬ 
punkte bekommt • wurde mit äußerst 
schnellen Suchroutinen ausgestat¬ 
tet, die verhindern, daß eine schon 
richtig beantwortete Frage nochmals 
erscheint - ist spielbar mit 1-4 Ein¬ 
zelspielern oder in Gruppen mit ei¬ 
nem Vielfachen davon • erkennt au¬ 
tomatisch, welche Fragenblöcke auf 
der Diskette noch unbeantwortet sind 
• zeichnet sich nicht nur durch die 
o.g. Punkte als höchst zukunftssi¬ 
cher aus! 

für CPC 464 • 664 - 6128. /\a/ 
3“ Diskette VV 

Best.-Nr. 106 A29,- DM* 


YRUS II SCHAC 

Das bewährte Pro¬ 
gramm für CPC’s 

Wahlweise 3D oder 2D Display, ein¬ 
stellbare Spielstärke und viele weitere 
Extra-Features (mit deutscher Bedie¬ 
nungsanleitung). 


zum Sonderpreis 


^29,- DM* Kassette Best.-Nr. 130\ 12,95 DM* 


STARTEST 


Action-Adventure für alle CPC's 


Kassette 
Best.-Nr 103 
Diskette 3“ 

Best.-Nr 104 


24,- DM* 


29,- DM* 


CPC Power-Spiele-Paket 

18 tolle Spiele für Ihren CPC 464,664 
oder 6128 v . * A 


4 Disketten 3" 

Best.-Nr 102 


70,- DM* 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung 
(unverbindliche Preisempfehlung) Bjtte benutze n Sie die Bestellkarte. 


DMV-Verlag • Postfach 250 ■ 3440 Eschwege 
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NACHRICHTENTECHNIK 


J! LocoScript 2.2 
LocoSpeli 
Locofeil 
LocoFile 
LocoKey 


LocoFont 14 l 
Keyboard Disk 
Printers Disk 
Chiracter Set 
24 Pin Drivers 


fellard 8I16 Bit 
Nulti User fellard 
fester Pack 
StopPress 

NeusDesk 4 Zubehör 


CleanPrint 
HeadCleaning 
UDU Screen Filter 
Printer Stand 80 
Transporttasche 



NEU I LocoFile (Datenbank) $ LocoScript 2 Fibel 

Neuer Katalo g für Januar-Harz *89 / Info's zu LocoFile und neue LocoScri p t U Uersion 

!!! MIR HABEN ALLE FARBBÄNDER FÜR DIE PCH-SERIE ZU SUPERPRÜSEN !!! 

- NATRI-FUN * Colour-Ribbons * Carbon für PCH 9S12 

Nenn Sie Fragen haben. IMINE No.-Fr.S-U 414-16 Uhr 
LlNk Besuchsterwne nur nach telefonischer Vereinbarung! 


-w 



Bramfelder Chaussee Z15/HH 71 
Tel. : 040-641 17 79 
Fax : 040-641 17 76 



Anwendungsprogramme 
für CPC oder JOYCE 

ADRESCOMP Adressendateiprogramm 58,- DM 

COMFORM Überweisungsformulare bedrucken 48,- DM 

DATENREM die universelle Dateiverwaltung 68,- DM 

ETATGRAF Haushaltsbuch mit Grafik 58,- DM 

FIBUCOMP Buchführung 98,- DM 

FIBUPLAN Buchführung mit MwSt-Berechnung 148,- DM 

KALKUREM Tabellenkalkulation (Version 2.0) 78,- DM 

LAGDAT praktisches Lagerdateiprogramm 68,- DM 

PROFIREM Rechnungen, Lager-Kundendatei 136,- DM 

TEXTKING Textprogramm (nur CPC) 78,- DM 

VOKABI universeller Vokabeltrainer 58,- DM 

Programme jeweils auf 3"-Diskette. Versand per Vorkasse (portofrei). 
Nachnahme (plus 5 DM). Oder fordern Sie nur unser Info für CPC bzw. Joyce an. 

VAN DER ZALM-SOFTWARE 

Elfriede van der Zalm, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 0 44 61 / 55 24 


NEU: 



Heißer Draht 

jetzt 

mit Durchwahl! 


Haben Sie Fragen, die nicht warten können? Dann 
rufen Sie uns an! Unser Leser-Telefonservice steht 
Ihnen 

jeden Mittwoch 
von 17.00 bis 20.00 Uhr 

zur Verfügung. 

Sie erreichen Ihren Redakteur jetzt direkt unter einer 
Durchwahlnummer. Auf Ihren Anruf freuen sich: 

Claus Daschner (CPC) 

(0 56 51 ) 80 09 - 16 

Jürgen Borngießer (CPC, PC) 

(0 56 51 ) 80 09 - 17 

Ralf Schößler (PCW) 

(0 56 51 ) 80 09 - 18 

Achtung: Die in früheren Heften veröffentlichte 
Sammelnummer ist ab sofort ungültig diese 
Nummer bitte nicht mehr anwählen! 


I—Assembler 


5150 1 

SUB 

Window-Ad ress 

e berechnen 

5160 • 

IN : 

H = T extspalte 

links 

5170 ‘ 


L=Textzei1e 

oben 

5180 ' 


D=Textspalte 

rechts 

5190 ‘ 


E=Textze11e 

unten 

5200 1 

OUT 

B=Breite ln 

Bytes 

5210 1 


C=Hoehe ln R 

asterzei1en 

5220 1 


HL = Sc reenad r 

esse oben links 

5230 * 




5260 'WINADR ;siehe letz 

te Folge 

5270 ’ 




5650 1 

***« 

************* 

*************** 

5660 ' 

SUB 

Bi 1dschirmad r 

. eine Raster¬ 

5670 ' 

ze i 

e nach unten 

weiter rechnen 


5680 

5690 

5700 

5710 


IN: HL = alte Adresse 
OUT: HL = neue Adresse 

LDOWN jsiehe letze Folge 


10 

******* window-Demoprogramm ******* 

[1818 ] 

20 


[117] 

30 MODE 1 

[506] 

40 


[117] 

50 REM Basiclader auf rufen 

[869 ] 

60 GOSUB 1000 

[851] 

70 


[117] 

80 REM Window-Verwaltung initia1isieren 

[2894] 

90 MEMORY &7F F F:CA L L 1nitw,HIMEM+1 

[614] 

100 

' 

[117] 

110 

REM Hintergrund erzeugen 

[2003] 

120 

FOR x=0 TO 640 STEP 10 

[1838] 

130 

MOVE 320,0:DRAW x,400 

[1527] 

140 

MOVE 320,399:DRAW x.O 

[1532] 

150 

NEXT 

[ 350] 

160 

* 

[117] 

170 

REM 4 Fenster oeffnen 

[1776] 

180 

FOR w=0 TO 3 

[ 662 ] 

190 

PAPER 2+(w AND 1) 

[908 ] 

200 

PEN w AND 1 

[392] 

210 

1inks=w*8+2:rechta=w*8+15 

[1619 ] 

220 

oben=w*4+3:unten=w*4+10 

[2667 ] 

230 

CALL openw,1inks,rechts.oben,unten 

[2970] 

240 

’ 

[117] 

250 

REM Beschriftung 

[1238] 

260 

FOR y=oben+l TO unten-1 

[2049] 

270 

LOCATE 1inks+3,y 

[2110] 

280 

PRINT"Window";w 

[1785] 

290 

NEXT y 

[ 359 ] 

300 

' 

[117] 

310 

REM inverser Balken 

[2174] 

320 

FOR y=oben+l TO unten-1 

[2049] 

330 

CALL invers,links+1,rechts-l,y,y 

[3020] 

340 

FOR i=1 TO 500:NEXT 

[ 6 78 ] 

350 

CALL Invers, 1inksfl,rechts-l,y,y 

[3020] 

Listing Formular 
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BRANDHEISSE KNÜLLERPREISE 


360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 


NEXT y 
NEXT w 

REM Fenster sch)iessen 
FOR w=0 TO 3 
CALL closew 
FOR i=1 TO 500: NEXT 
NEXT w 

GOTO 180 

'*•*«** Basic1 ade r fuer die ****** 
'****** Window - Routinen ****** 

'Ermoegllcht folgende Aufrufe: 

'CALL initw.SpeicherStart 
'CAlL invers,1i,re,ob,un 
'CALL openw,1i,re,Ob,un 
'CALL closew 

MEMORY &9FFF:RESTORE 1220 
FOR ad r = &A000 TO &A137 
READ a$:a$="&"+a$ 
v=VAL(a$):s=s+v 
POKE adr.v 
NEXT adr 

IF s< >31588 THEN PRI NT"DATAFEHLER 


! ! ! 


: END 


1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 


invers=&A000:initw=&A003 
openw=&A006:closew=&A009 
RETURN 

DATA C3,3F,AO,C3,56,AO,C3,64 
DATA A0,C3,B1,A0,00,00,00,00 
DATA 00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,CO 
DATA EA.AO.CD,F7,A0,C5,E5,7E 
DATA 2F,77,23,10,FA,El,CD,29 
DATA Al,CI,OD,20,FO,C9,AF,32 
DATA OC,AO,DD,6E,00,DD,66,01 
DATA 22,0D,A0,C9,CD,EA,A0,CD 
DATA F7,A0,E5,21,0C,AO,7E.34 
DATA 5F,87,83,87, 6F,26,00,11 
DATA OD,AO,19,E5,FD,El,FD.5E 
DATA 00,FD,56,01,El,FD,75,02 
DATA FD,74,03,FD,70,04,FD,71 
DATA 05,CD,99,BB,CD,2C,BC,C5 
DATA E5,4F , 7E , 12 , 71,23 , 13 , 10 
DATA F9,El,CD,29,Al,79,CI,OD 
DATA 20,ED,FD.73,06,FO,72,07 
DATA C9,3A,OC,AO,B7,C8,3D,32 
DATA 0C,A0,5F,S7,83,87,6F,26 
DATA 00,11,OD,AO,19,E5,FD,El 
DATA FD,6E,00,FD,66,01,FO,5E 
DATA 02,FD,56,03,FD,4E,04,FD 
DATA 46,05,C5,05,06,00,ED,BO 
DATA Dl,EB.CD,29,Al,E8.C1,10 
DATA F1,C9,DD,5E,00,DD,6E,02 
DATA DD,56,04,00,66,06,C9,25 
DATA 2D,7A,94,47,7B,95,4F,CD 
DATA 11,BC,38,04,28,06,18,08 
DATA CB,24,CB,20,CB,24,CB,20 
DATA CB,21,CB,21,CB,21,7C,26 
DATA 00,54,50,29,29,19,29,29 
DATA 29,29,5F,19, 11,00,CO. 19 
DATA C9,7C,C6,08,67,DO,D6,40 
DATA 67,7D,C6,50,6F,DO,24,C9 


[ 359] 

[ 361 ] 
[117] 
[1350] 

( 662 ] 

[ 537 ] 

[ 678] 

[361] 

[117] 

[401] 

[117] 

[1257] 

[1404] 

[117] 

[2338 ] 

[117] 

[1525] 
[1253] 

[ 1478 ] 

[813] 

[117] 

[ 889 ] 

[1091 ] 
[ 595 ] 

[1644] 
[136] 

[ 547 ] 

[ 1867 ] 

[117] 

[1991 ] 
[2489 ] 
[ 555 ] 
[117] 
[1507] 
[1455] 
[ 1005 ] 
[ 1005 ] 
[ 1005 ] 
[1005 ] 
[ 1005 ] 
[ 1027 ] 
[1217] 
[ 850] 

[ 1085] 
[ 879] 
[591] 
[1149] 
[ 1306] 
[1743] 
[1326] 
[ 973 ] 
[1707] 
[1306] 
[ 1409 ] 
[2500] 
[ 1272 ] 
[1830] 
[1623] 
[1336] 
[ 1469 ] 
[ 1389 ] 
[1742] 
[1462] 
[976] 

[ 1623] 
[ 1264] 
[1035] 
[ 1258 ] 
[2061 ] 
[ 800] 

[ 1629 ] 
[1070] 


Lisling Formular 


Schnoldor 

Euro PC mit Monitor MM 12 ♦ MS-Works 
Euro PC mit Colormonitor CM 14 
20 MB Fesipiollo extorn lOi Euro PC 
■tO-MB-Festplatte oxtorn für Euro PC 
Target PC (Portable AT) 

Towor AT 220 mit Monitor MM 12 
20 MB FHocorO (Soagato. 40 ms Zugrillszoll, 
einbau- und BnschiuQfertig für al'e PC 1512 
und PC 1640) 

30 MB Fllocard (Seagate. 40 ms) 

Amstrad 

PC 1640 mit 2 LW + Filecard 20 MB 
Monochrom-Monitor 2399.- 
Colormonitor 2749,- 

EGA-Momtor 3249.- 

PC 2086 SD 12 MD 2249, - SO 14 CO 

SD 12 HRCO 3049 - SO 14 HRCO 
PC 2086 DD 12 MD 2699, - DD 14 CD 

DD 12 HRCO 3499, - DD 14 HRCO 
PC 2066 HD 12 MD 3299. - HD 14 CD 

HD 12 HRCO 4099- HD 14 HRCO 
PC 1640 OD mll Schwärzwe,ß*Monlior 
mit EGAMomtor 

PC 1640 HD 20 mit Schwarz vre iß-MonJor 
mH EGA Mon lor 

Portable Computer PPC 512 mit 2 Disketten 
luulworken 35‘ 

Joyce PCW 9512 mit Typenraddrucker 
EGA-Monltor lür PC 1840 
EGA-Monilor EGA-KortelürPC 1612 
Amstrad CPC 6128 mll Grünmonitor 


1199,- 

1649,- 

899, 

1499,- 

4699.- 

3149,- 


30 MB 
2499,- 
2649.- 
3349,- 
2699,- 
3399,- 
3149,- 

3849,- 

3749.- 

4449.- 
1749, - 
2599, 
2249.- 
3099,- 

1699.- 

1449.- 

1299,- 

1699,- 

769.- 


Suporknüllor: 

Epson Tintenstrahldrucker IX 800(241) Z/Sek.; 699.- 

Siomehs BTX-Syslom i 15' Fatbmonitor 
(Vorlührg.l 849.- 

NEC EGA-Monilor Multisynch II (dt. Version) 1399,- 

Epsondrucker (dt. Handbüchet mH FTZ) 

AnschluSlortig un AMIGA. Schneide' PC oder 
CPC, Atari ST oder IBM-Kempatible 
LX 800 499.- 

FX 850 1119.- 

LQSOO 869.- 

LO 2550 3099.- 

LO850 1469.- 

L01050 1899.- 

Stardrucker (dt. Handbücher mll FTZ) 

LC-10 mit Commodore cd Contronicstnl 549, - 

LC-10 Color Farbdrucker mit Inlorloco 699, - 

LC-24-10 mll Centronicsinteriace 879,- 

NEC-Orucker (dt. Version mit FTZ) 

NEC P 2200 899, NEC P 7 Plus 1899.- 

NEC Drucker P 6 Plus 1449, - 


Vortandkoslenpaosc.nale iv/ares»«ri bis DM ip«i,-iuirlit>ei: 
Vorausknsse (DM 8,-r20 -I. Nachnanmo (OM 11,202320), Aas- 
l.md (DM 20 -J50,-). Uefnrung nur gugrm NN oOrr' Wrmuskltsio, 
Ausland nur Vc-aurtkassn. Prelrrlislö (Compulertvp ungebun) gr 
gon Zusendung Deos Froiumactiiags Pur.so ab 130.1.69 


CSV Riegert 

Schloßhofstr. 5, 7324 Rechberghausen, Tel. (0 71 61) 5 28 89. FAX (071 61) 1 3587 


Ein Traum 

z.B. 1640 mit HD 40MB/24ms, 3,5“ Disketten- 
Lw. bis 1,44 MB oder Bandsicherung, alles 
eingb. 

Alle Amstrad Computer wie Zubehör 
schnell und günstig, auch die AT’s. 

Schnelle Servicegarantie. 

/cMS/iS^ 

Auf den Steinstücken 
4599 Peheim 04479/1349 


Unbedingt an- 
rufen oder 
Info anfordern 


0 ) 

"5 

Q. 

E 

o 

o 

1 

o 

& 

c 

c 

I 

O 


Jede Info nimmt an einem Preisausschreiben teil! 


Eine Bitte 
an unsere 
Abonnenten 


Vermerken Sie bei 
Schriftverkehr und 
Zahlungen neben der 
vollständigen 
Anschrift stets Ihre 
Abo-Nummer. 


Sie vermeiden damit 
unnötige Verzögerun¬ 
gen bei der 
Bearbeitung Ihres 
Abonnements. 


Vielen Dank 

Ihre DMV- 
Versandabteilung 


-AMSTRAD-Compute 

r - 

-Software + Zubehör- 

AMSTRAD-Computer auf Anfrage 

JOYCE-Zubehör: 


Farbband 8256/8512 

12,90 

Papierlührung 

29,50 

3''-Markendisketten 10 Si 

59,90 

Farbband 9512 

17,95 

Typenräder 9512 

25,00 

Typenröder SD15 

25,00 

Diskettenbox I. 50 Disk 

16,95 

3D Chess 

49,90 

GSX-Grafik-Treiber 

49,90 

PC-Zubehör: 


5 1/4"-Disketten 2D 10 Stück 

6,95 

3,»--Disketten MF 2DD Stück 

2,50 

20MB Filecard 

698,00 

Druckerkabel par. 

17,70 

STAR LC10 (deutsch) 

570,00 

STAR LC24/10 (deutsch) 

890,00 

Druckorsiänder 

29,95 

Farbband LCtO 

15,95 

Farbband NEC P 2200 

16,95 

Abdeckhaube Tastatur 1512/1640 

16,95 

Genius Dyna Mouse 

135,00 

128 KB RAM-Erweiterung 

198.00 

2. Laufwerk 3 1/2 

459,00 

Turbo 959-Joy-Stick 

29.95 

Haftetiketten endlos 100 Stück 

8.95 

DOS-Lernprogramm 

49,70 

TextMaker 

148.00 

Finanzbuchhaltung 

398,00 

Fakturierung 

398.00 

Weitere Preise auf Anfrage! 


Lieferung per Nachnahme oder Voraus¬ 

kasse (Versandkostenpauschale 11,40 

pro Paket) 


Kosmalla & Partner 

Datenverarbeitung GmbH 

Bliesstr. 5, 6700 Ludwigshafen 

Tel.: 06 21-51 97 49 
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I Tips & Tricks 


100,- DM 

für 1 kByte 

Die Herausforderung 



Herzlich Willkommen zu unserer Herausforderung. 

Wie jeden Monat präsentieren wir Ihnen wieder viele 
1-kByte-Programme, die es in sich haben. Sehr erfreu¬ 
lich fanden wir auch die zahlreichen Einsendungen. 
Ebenso auch die Tatsache, daß nicht nur das männliche, 
sondern auch das weibliche Geschlecht kräftig mitge¬ 
mischt hat. Weiterhin hoffen wir auf Mitarbeit von 
dieser Seite. Also nichts wie ran an den CPC. 

Und nun wünschen wir Ihnen viel Spaß und Freude 
beim Abtippen und Ausprobieren. 


1. Programmm: Grafiken 

Ein Programm, das schöne und verschiedene Grafiken auf 
dem Bildschirm erzeugt. Durch Eingabe von mehreren Para¬ 
metern lassen sich sehr unterschiedliche Grafiken ent¬ 
wickeln. 

Der Anfang 

Zu Beginn werden Sie nach der Anfangslänge der Balken ge¬ 
fragt, sinnvolle Eingaben liegen im Bereich von 1 bis 255. 
Dies ist aber auch abhängig von den nachfolgenden Para¬ 
metern, weil zu hohe Werte ein ‘Overflow 4 hervorrufen 
können. 

Weiter geht es mit der Abfrage, mit welchem Grad gezeich¬ 
net werden soll; die Eingabe erfolgt im Bogenmaß. Durch zu 
hohe Werte kann es zu einer Fehlermeldung kommen; dies 
ist aber auch abhängig von den vorherigen Eingaben. 

Als letztes werden Sie nach der Zunahme des Radius gefragt, 
je kleiner der Wert ist, umso dichter wird die Grafik gezeich¬ 
net. Durch Ausprobieren mit verschiedenen Kombinationen 
ergeben sich komplexe Grafikbilder. Es lohnt sich. 

Zusätzliche Funktionen 

Im Programm selbst gibt noch ein paar Funktionen, die wie 
folgt aufgerufen werden können: 

Taste W: Erfolgt eine Unterbrechung durch eine beliebige 
Taste, kann das Programm durch Druck auf die Taste W wie¬ 
der in Gang gesetzt werden. 

Taste H: Wurde eine Hardcopy routine in das Programm inte¬ 
griert, so kann diese durch den Druck auf die Taste H akti¬ 
viert werden. Der Bildschirminhalt wird dann auf dem jewei¬ 
ligen Drucker ausgegeben. 

Taste S: Wird diese Taste im Programmablauf zweimal be¬ 
tätigt (zur Erinnerung: beliebige Taste unterbricht den Ab¬ 
lauf), kann der Bildschirminhalt auf einem Datenträger abge¬ 
speichert werden. Der Name ist in der Zeile 160 festgelegt, 
kann aber nach Belieben geändert werden. 

Die Leertaste ermöglicht nach einem Tastendruck den noch¬ 
maligen Programmstart. 
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Beispieldaten 

Hier noch einige interessante Werte für das Programm (ein¬ 
zugeben bei ‘Winkel (Bogenmaß)? 4 ): 

1.8,2,2.1,2.5, 2.7, 2.8, 3.6, 4.2, 4.5 

(Gerhard Piezinger/cd) 


2. Programm: Ideal für Erwachsene 

Haben Sie Über- oder Untergewicht? Oder haben Sie sogar 
Ihr Idealgewicht? Dieses Programm klärt Sie auf. 

Wie wircPs gemacht? 


Am Anfang werden Sie nach dem Gewicht und der Körper¬ 
größe in cm gefragt. 

Das Programm errechnet dann anhand der eingegebenen 
Körpergröße das entsprechende Idealgewicht und aus dem 
eingegebenen Gewicht die entsprechende Idealgröße. Die 
Abfrage nach Gewicht und Größe und das Resultat werden in 
der sogenannten Computerschrift mit Sounduntermalung 
ausgegeben. Ein kleiner Gag am Rande: Die Ausgabe erfolgt 
in unterschiedlichen Geschwindigkeiten. 

Ab sofort haben Sie immer wieder einen Überblick über Ihr 
persönliches Idealgewicht. 


V iel Spaß dabei! 

3. Programm: Hopping Mad 


(Angelika Kramer/cd) 


Ein hüpfender Ball (wenn auch etwas eckig) zeigt, wie auf¬ 
regend das Balldasein sein kann. 

Die Aufgabe in dem Spiel besteht darin, möglichst viele 
dunkle Kästchen auf den Plattformen zu sammeln. Dazu be¬ 
wegen Sie ein hüpfendes ‘Etwas 4 mit dem Joystick. Springen 
können Sie mit dem Joystick, indem Sie ihn nach vorne 
drücken. 

Haben Sie es geschafft, alle dunklen Kästchen einzusam¬ 
meln, so können Sie die Räume nach rechts unten verlassen. 

Das Spiel ist zu Ende, wenn die mitlaufende Zeit abgelaufen 
oder wenn Sie in ein mitlaufendes Loch gefallen sind. Ist dies 
geschehen, beginnt ein neues Spiel, und ein eventueller neuer 
Highscore wird angezeigt. 

Einen hüpfenden Spaß wünschen wir Ihnen! 


4.Programm: Labyrinth 


(Jürgen Lutz/cd) 


Irrgarten einmal anders. 

Stellen Sie sich vor, Sie befinden sich in einem dunklen und 
tiefen Labyrinth, in dem nichts zu sehen ist. Aber Sie wissen. 


& 


Tips & Tricks—i 


Sie müssen Ihren verschollenen Freund suchen und finden. 
Einen Vorteil besitzen Sie, Ihr Freund ist durch das Gestein 
sichtbar. 

Steuerung 

Nachdem der Computer das Labyrinth nach zirka fünfzehn 
Sekunden aufgebaut hat, erscheinen zwei Männchen. Eins 
davon sind Sie. Ihr Männchen können Sie mit den Pfeiltasten 
steuern. 

Wenn Sie es geschafft haben, bekommen Sie das ganze Laby¬ 
rinth zu sehen. 

Viel Vergnügen! (Michael Quast/cd) 

5. Programm: Verschiebefix 

Sie kennen doch sicher die kleinen quadratischen Plastikkar¬ 
ten, auf denen sich entweder Muster oder Zahlen befinden. 
Diese Bilder oder Muster werden durchcinandergewirbelt, 
um sie nachher in die alte Ausgangsposition zu bringen. 
Diese Spielart ist zwar sehr alt, aber immer wieder auf¬ 
regend, denn hier ist die Kombinationsgabe gefragt. 

Nach dem Starten müssen Sie ungefähr sieben Sekunden 
warten, bis der CPC die Zahlenreihen gemischt und über¬ 
prüft hat. Dann kann es losgehen. 

Die Ste uerung 

Um die Zahlen in der richtigen Reihenfolge zu bekommen, 
müssen Sie die Pfeiltasten benutzen. 

Die Zahlen müssen in dieser Folge auf dem Bildschirm zu 
sehen sein: 

1-2-3-4 
5-6-7-S 
9-10-11-12 
13-14-15 

Hinweis: Wenn die Zahlen in der richtigen Reihenfolge sind, 
wird das Ende nicht angezeigt. Bei einem neuem Versuch mit 
einer neuen Zahlcnkombination muß mit ESC abgebrochen 
und mit RUN neu gestartet werden. 

Gute Schiebung! ... 

6 (Peter Potuznik/cd) 



Bild I: Dies isr nur ein Grafikbeispiel aus vielen anderen Möglichkeiten. 


6. Programm: Corner 

Mit Corner bekommen Sie ein Geschicklichkeitsspiel in die 
Hände, das es in sich hat. 


Das Ziel und die Steuer ung 

Ziel des Spieles ist es, die weiße Kugel von der unteren rech¬ 
ten Ecke in die blinkende, obere linke Ecke zu steuern. Man 
sollte jedoch darauf achten, daß man nicht die roten Hinder¬ 
nisse oder die roten Wände berührt, und daß man die angege¬ 
bene Zeit (auf dem Monitor oben rechts) einhält. Schon bald 
wird der geneigte Spieler jedoch erfahren, daß die Steuerung 
nicht so einfach ist. Je länger der Joystick in eine Richtung 
gehalten wird, desto schneller rollt die Kugel in diese Rich¬ 
tung. Doch sollte der Spieler selber mit der Steuerung expe¬ 
rimentieren. Ist die besagte Ecke von der Kugel erreicht wor¬ 
den. gelangt der Spieler in das nächste Level (angezeigt 
rechts über der Zeit), wo ihn noch mehr Hindernisse erwar¬ 
ten und die Sollzeit verringert wird. Spätestens ab Level 
fünfzehn ist ein pixelgenaues Steuern nötig! 

Viel Spaß! 

(Matthias Prange/cd) 

Die Bedingungen 

Hier noch einmal die Bedingungen unseres Wettbewerbs: 
Wir suchen komplette Programme (bitte ohne Steuerzei¬ 
chen!), die funktionsfähig möglichst auf allen drei CPCs lau¬ 
fen (was nicht heißen soll, daß wir bei besonders guten keine 
Ausnahme machen) und die nicht länger als 1 kByte sind 
(Anzeige auf dem Datenträger gilt). Der Preis für solche Pro¬ 
gramme beträgt 100,- DM. Senden Sie uns Ihr Programm 
auf Datenträger (Diskette/Kassette) mit Programmbeschrei¬ 
bung (möglichst in ASCII-Form auf dem Datenträger) zu und 
zwar an den 

DM V" Verlag 
Postfach 250 
Stichwort 100,- DM 
3440 Eschwege 



Bild 2: Auch diese Grafik wurde mit dem Programm 'Grafiken' erzeugt. 
Weitere Grafiken erwarten Sie. 
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10 R A0:MOOE 1:CLEAR:CALL &BCOO [1899] 

20 INPUT"Anfangs 1 aenge Oer Balken'';a [3026] 

30 PRINT:INPUT"W1nkel in Grad (Bogenmass>“ [2551] 

40 PRINT:INPUT“Zunahme dos Radius (Dichte) [3249] 
"; zun 

50 MOOE 2:MOVE 320+a*COS(i),200+a*SIN(1) [3556] 

60 i=1+w [414] 

70 WHILE INKEYS«GOTO 110:WEN0 [1795] 

80 a=a+zun [731] 

90 DRAW 320+a*COS{t),200+a*SIN(i) [1981] 

100 GOTO 60 (390] 

110 CALL &BB06 [393] 

120 IF INKEY (59)0-1 TNEN 90 [361] 

130 IF INKEY(44)< >-1 THEN G0SU8 170:GOTO 1 [ 2225 ] 
20 

140 IF INKEY(60)< >-l THEN 160 [1026] 

150 IF INKEY<47)0-1 THEN PRINT STRING$(50 [4396] 
,CHRS(11)):RUN ELSE 110 

160 SA VE ’’ acr een " , b , SCO 0 0,44000 : GOT O 120 [2532 ] 

170 ' Hardcopyroutl ne selbst nachtragen [1557] 

180 RETURN [555] 


5 REM Ideal fuer Erwachsene 

(1388] 

10 a$="awicht”;e$="Ueberg";c$=a$+" waere": 
b$="Idealg":f$='Voesse" 

[5428] 

20 CLS: MODE 2:g$ = ''Ihr G"+a$+“ und ihre G" + 
f$:GOSUB 80:gS=“G"+aS+" in kg “:GOSUB 80:1 
NPUT;a:g$="G” + f$+" ln cm ":GOSUB 0O:INPUT, 
b:n=b- 100 :y = (n/ 100 )* 10 :z=(n /100 )* 15:u=n-z: 
i=n-y:1=n + y:g=INT(((a*10)+900)/9 ) 

[13629] 

30 IF a< = u THEN h$=“Unterg":GOTO 70 

[2489 ) 

40 IF a < = i THEN h$ = bS:GOTO 70 

[2126] 

50 IF a«=n THEN h$=No rma 1 g" : GOTO 70 

[ 1 8 7 7 ] 

60 IF a< = 1 THEN h$="1e1chtes ” + e$ ELSE h$= 

e$ 

[2831 ] 

70 g$="Sie haben "+h$+a$:GOSUB 80:1$=STR$( 
t):g$ = "Ihr " + b$+c$+i$ + " kg.":GOSUB 80:d$ = S 
TR$(g):g$="Be1 Ihrem G"+c$+“ die ”+b$+f$+d 
$+" cm.":GOSUB 80:CALL SB806:RUN 

[8963] 

80 c=6:d=d+4:LOCATE C,d:FOR w=l TO LEN(g$) 

:PRINT MIDS(g$,w,l);:SOUNO 3,28,2.12:FOR x 
=1 TO d*9:NEXT:NEXT:RETURN 

[7115] 


10 f=62:d=62:1=999:IF p>h THEN h=p 

20 p=0 

30 e=0:MODE 1:LOCATE 1,23:PRINT STRING$(40 
,CHR$(143)):b=3:F0R 1=1 TO 4:a=RND*29+l:c= 
40-(a+RND*10):b=b + 4:LOCATE 16,1:PRINT"High 
“h:x=624:k=-16 

40 LOCATE a,b:PRINT STRINGS(c,CHR$( 143> ) : L 
OCATE a+c/2,b-1:PEN 3:PRINT CHR$(207):PEN 
1:NEXT:TAG:MOVE 350.14:PR INT"Zeit " ; 

60 READ a:IF a=210 THEN RESTORE 60:DATA 14 
0,143,131,208,131,143,140,210 
70 IF b=0 THEN IF JOY(0)=4 THEN e=0-16 ELS 
E IF JOY(0)=8 THEN e=e+16 ELSE IF JOV(0)=1 
THEN f=f+64 

90 b=0:IF e>624 THEN 30 ELSE IF e<0 THEN e 
= 0 ELSE IF f < 62 THEN 2=1 

100 IF TEST(e,f-18)=0 THEN f=f-16:b=l 

101 IF TEST(e,f)=3 THEN p=p+l:MOVE 100,14: 
PRINT p"Punkte"; 

105 MOVE 420,14:PRINT 2 ;:z=z-l:IF z=0 THEN 
MOOE 1:LOCATE 18,13:PRINT"ENDE":FOR 1=1 T 

0 999:NEXT:GOTO 10 

106 IF x > 624 OR X<0 THEN k = k*-l 

110 MOVE c,d:PRINT" ”;;MOVE e,f:PRINT CHRS 
(a);:d=f:c=e:MOVE x,46:PRINT“ “;:MOVE x-k* 
2,46:PRINT CHR$(143)i:x=x+k:GOTO 60 


[1872] 
[ 257 ] 
[8382] 


[5146] 

[3797] 

[4281] 

[4611] 

[ 2221 ] 
[4400] 

[5561) 

[1447] 

[7744] 


Listing 1 kByte 


10 MODE 1:INK 1,24:INK 2,0:INK 0,0 

[1099] 

20 DIM fei(41,26) 

1 749 1 

30 FOR h=l TO 380 

[ 1032] 

40 k=INT(RND*40+l) 

( 329] 

50 1=INT(RND*25+1) 

I 1375] 

60 fei(k,1)=10 

[221] 

70 PEN 2:LOCATE k,l:PRINT CHR$(143);:PEN 1 

[1800] 

80 NEXT 

[350] 

90 a=INT(RND*40+1):b=INT(RND*25+1):LOCATE 

[5581] 

a,b:PRINT CHR$(248);:fe1(a,b)=0 


100 X=INT(RND+40+1>:y = I NT(RND*25+l).LOCATE 

[6155] 

*,y:PRINT CHR$(249);:fel(x,y)=0 


110 IF INKEY(8)=0 AND a>l AND fel(a-l,b)<> 

[5006) 

10 THEN LOCATE a , b : PRI NT '' " ; : a=a-1 : LOCATE 


a,b:PRINT CHR$(251); 


120 IF INKEY(1>=0 AND a<40 AND fel(a+l,b)< 

[4933] 

>10 THEN LOCATE a,b:PRINT" a=a+1:LOCATE 


a,b:PR I NT CHR$(250); 


130 IF INKEY(0)=0 AND b>l AND fe!(a,b-l)<> 

[4231] 

10 THEN LOCATE a,b:PRINT" b=b-1:LOCATE 


a,b:PRINT CHR$(248); 


140 IF INKEY(2)=0 AND b<25 AND fel(a,b+l)< 

[6045] 

>10 THEN LOCATE a,b:PRINT" b=b+l:LOCATE 


a,b:PRINT CHRS(249); 


150 GOSUB 160:FOR d=l TO 80:NEXT:GOTO 110 

[2385] 

160 IF a=x AND b=y THEN LOCATE a.b:PRINT C 

[8272] 

HR$(238):INK 2,20:S0UND 1,470,50:SOUND 1,3 


19,SO:SOUND 1,239,50:FOR p=1 TO 5000:NEXT: 


RUN 


170 RETURN 

[ 555] 

10 CLS 

[91] 

20 DIM a(4,4) 

[306] 

30 FOR 1=0 TO 4 

[477] 

40 MOVE 200,100+1*50:DRAWR 200,0 

[1761] 

50 MOVE 200+i*50,100:DRAWR 0,200 

t 1377] 

60 NEXT 1 

[375 ] 

70 FOR 1 = 1 TO 4:FOR J=0 TO 3 

[1733] 

80 a<1.4-j)=i+j*4 

[ 1099 ] 

90 NEXT j,1 

[ 396 ] 

100 xp=4:yp =1 

[1269] 

110 LOCATE 14,2:PRINT ‘Vermischung" 

[2236] 

120 FOR 1=1 TO 200:b=INT(RND*3.99)+l:GOSUB 

[2418] 

200:NEXT 1 


130 LOCATE 14,2:PRINT CHR$(18) 

[2356] 

140 FOR x= 1 TO 4:FOR y=l TO 4:GOSUB 230:NE 

[2298] 

XT y.x 


150 a$=INKEY$ 

1278] 

160 IF aS="" THEN 150 

[813] 

170 b=ASC(8$)-239 

[1000] 

180 IF b<1 OR b > 4 THEN 150 

[316] 

190 GOSUB 200:GOSUB 230:GOTO 150 

[2190] 

200 IF (xp=l)*(b=4)+(xp=4)*(b=3)+(yp=l)*(b 

[3462] 

=1)+(yp=4)*(b=2) THEN 270 


210 x=xp;y=yp:xp=xp+(4=b)-(3=b):yp=yp+(b=l 

[5864] 

)-(b=2 >:a(x , y )=a( xp.yp) 


220 RETURN 

[ 555 ] 

230 TAG:MOVE 212+(x-1>*50,132+(y-1)*50 

[1736] 

240 PRINT USING "* »";a(x,y ) ; 

[1192] 

250 MOVE 212+(xp-l)*50,132+(yp-l)*50 

[1748] 

260 PRINT " “;:TAGOFF 

[852 ] 

270 RETURN 

[555] 

10 RANDOMIZ E TIME:BORDER 2:INK 0,0:INK 1,2 

[8529] 

6:INK 2,6:INK 3,22,23:SYMBOL AFTER 33:SYMB 


OL 33,126.255,255.255,255,255,255,126:z$=" 


! ": I = 1 


20 MODE 1:PRINT CHR$(23)CHR$<0);:PAPER 2:C 

[8740] 

LS:PEN 1:PRINT TAB(37)1:WINDOW 2,39,2,24:P 


APER 0:CLS:FOR a=200 TO 383 STEP 2:M0VE 32 


0,383:ORAW 623,a,2:MOVE 320,16:DRAW 16,a-l 


84:NEXT 


30 PEN 2:FOR a = l TO 1 * 5 + 25:LOCATE I NT(RND* 

[ 13367] 

32)+3,INT(RND*17)+3 : PRINT CHR$(143);:NEXT: 


z=455-l*5:LOCATE 1,1 : PEN 3:PRINT CHR$(143) 


CHRS(212 ) : PRINT CHR$<212>:x = 6 00:y=3B : rx=0 


ry=0 : PRINT CHRS ( 23 ) CHRS ( 1 >;: TAG : PLOT -10,0 


,1 : MOVE X,y : PRINT z$,:TAGOFF 


40 z=z-l : LOCATE 32,1:PRINT USINGz : T A 

[4494] 

G : IF INKEY ( 72 )>- 1 THEN ry=ry + 0.2 


50 IF I NKEY ( 73 > >- 1 THEN ry=ry-0.2 

[12621 

60 IF INKEY { 74 )>- 1 THEN rx=rx-0.2 

[947] 

70 ' IF INKEY(75)>-l THEN rx=rx+0.2 

[ 760] 

80 MOVE X,y ; PRINT z $;: x=x+rx : y=y+ry : MOVE x 

[ 10993) 

,y : PRINT z$, : TAGOFF:t=TEST(x,y)OR TEST(x+l 


4 . y)0R TEST ( x , y-14)0R TEST < x+14,y - 14 ): 1F t 


=2 OR Z=0 THEN SOUND 7 , 2000,40,7 ; WHILE INK 


EY$< >"" :WEND:END 


90 IF t=3 THEN SOUND 7 , 120 , 30,7 : SOUND 7,20 

[3923] 

0,50, 7: FOR w=l TO 2000 : NEXT : 1 = 1 4 1 : GOTO 20 


100 GOTO 40 

[ 378 ] 

Listing 1 kByte 
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Gut gescrollt 
ist halb gewonnen 

Super Laufschrift für alle CPCs 

Dieses Programm generiert am unteren Bildschirmrand 
eine beliebig lange Laufschrift mit der Zeichenhöhe von 
vier Zeilen. Dieser wirkungsvolle Effekt kann in Spiele 
oder Titelgrafiken eingebaut werden. 

Anwendung: 

Sind Listings wie unten generiert, können die folgenden Bei¬ 
spiele ausprobiert werden. 

Das ProgrammSCROLL.BIN mit LOAD“SCROLL.BIN“, 
&a000 in den Speicher laden — der Laufschrifttext wird 
ab &5000 aufwärts abgespeichert. Zum Beispiel: mit 
MEMORY &4FFF Textspeicher reservieren und mit POKE 
&A0D0,&FF Anfangsadresse des Textspeichers (näheres 
unten). 

POKE &A0D1 ,&4F 
POKE &5000,ASC(“H“) 

POKE &5001, ASC(‘‘A“) POKE&5002,ASC(“L‘‘) 

POKE &5003,ASC(“L“) 

POKE &5004,ASC(“0“) 

POKE &5005,255 

Die Zahl 255 steht immer für das Ende der Zeichenkette, und 
CALL &A0CB ist der Aufruf des Maschinenprogramms. 
Falls dieser Speicherbereich (ab &5000) belegt ist, kann ein 
anderer freier mit den Adressen &A0D0 und &A0D 1 zuge¬ 
wiesen werden. Besonderheit: Er muß um eins niedriger sein 
als die eigentliche Anfangsadresse des Textspeichers. 
&A0D0 enthält das niederwertige Byte der Adresse, &A0D1 
das höherwertige. 

Das Ende der Zeichenkette wird immer mit 255 abgeschlos¬ 
sen. Der Aufruf erfolgt mit CALL &AOCB. Speichern Sie an 
den Beginn oder zwischen die anzuzeigenden Buchstaben die 
Werte zwischen 1 und 15 (Steuerzeichen), so ändern sich 
Aussehen und Farbe einzelner Buchstaben oder des gesamten 
Textes. Am besten Sie probieren und experimentieren. Die 
Tabelle der Steuerzeichen enthält die Bedeutung der einzel¬ 
nen Werte zwischen 1 und 15. Die Farbzuordnung bei den 
Pens 9 bis 15 kann zum Beispiel unter Basic mit dem Ink 
Kommando beliebig definiert werden. 

Tabelle 1: Steuerzeichen für Scroll- und Farbarten 


1 Vertikaler Farbscroll nach links 

2 Horizontaler Farbscroll nach oben 

3 Horizontaler Farbscroll nach unten 

4 Vertikaler Farbscroll nach rechts 

5 Schräger Farbscroll nach links 

6 Schräger Farbscroll nach rechts 

7 nicht definiert 

8 nicht definiert 

9 pen 9 

10 pen 10 

11 pen 11 

12 pen 12 

13 pen 13 

14 pen 14 

15 pen 15 


Beispiele: 

Wenn Sie den Text HALLO in horizontalem Farbscroll nach 
oben haben möchten, ändert sich die Voreinstellung wie 
folgt: 

MEMORY &4FFF Text-Speicher reservieren 
POKE &A0D0,&FF Anfangsadresse des Textspeichers 
POKE &A0D1.&4F 

POKE &5000.2 Horizontaler Farbscroll nach oben 
POKE &5001,ASC(“H“) 

POKE &5002,ASC(“A“) 

POKE &5003,ASC(“L“) 

POKE &5004,ASC(‘ 4 L“) 

POKE &5005,ASC(“0“) 

POKE &5006,255 255 als Schlußzeichen 
CALL &A0CB Aufruf 

Wenn man den Text HALLO in Pen 15 durchscrollen 
möchte, dann sieht das so aus: 

MEMORY &4FFF Text-Speicher reservieren 
POKE &A0D0,&FF Anfangsadresse des Textspeichers 
POKE &A0D1,&4F 

POKE &5000,15 PEN 15 (siehe Tabelle) 

POKE &5001 ,ASC(“H“) 

POKE &5002,ASC(“A“) 

POKE &5003,ASC(“L“) 

POKE &5004,ASC(“L“) 

POKE &5()05,ASC(“O“) 

POKE &5006,255 255 Als Schlußzeichen 
CALL &A0CB Aufruf 

Die Farben für die Farbscrolls stehen an den Adressen 
&A4C0-&A4C7. Da der Videocontroller die Werte in deco¬ 
dierter Form benötigt, müssen die normalen Ink-Werte um¬ 
gerechnet werden. 

Tabelle 2: Steuercodes für den Videocontroller 
INK/DEKODIERTE INK INK/DEKODIERTE INK 


0 

&14 

14 

&lf 

1 

&04 

15 

&0e 

2 

&15 

16 

&17 

3 

&lc 

17 

&0f 

4 

&18 

18 

&12 

5 

&ld 

19 

&02 

6 

&0c 

20 

&13 

7 

&16 

21 

&la 

8 

&0d 

22 

&19 

9 

&16 

23 

&lb 

10 

&06 

24 

&0a 

11 

&17 

25 

&03 

12 

&18 

26 

&()b 

13 

&00 




Technische Daten 


8*8 Matrix — jeder einzelne Punkt ist farblich veränderbar. 
Zehn Zeichen sind auf dem Bildschirm gleichzeitig darstell¬ 
bar. Die Farben 0-8 (pen 0-8) werden rotiert, dadurch errei¬ 
chen Sie Vertikal-, Horizontal- und Schrägscroll. Das Ende 
der Zeichenkette wird durch 255 markiert. 

Hinweise zum Abtippen 

Zuerst sollte SCROLL.LDR (Listing 1) abgetippt und abge¬ 
speichert werden. Nach dem Starten und fehlerfreiem Ablauf 
speichert das Programm SCROLL.BIN ab. Zum Schluß 
kann man noch das Demoprogramm (Listing 2) abtippen und 
unter dem Namen SCROLL.BAS abspeichern. Wird es ge¬ 
startet, so lädt das Programm SCROLL.BIN nach, und die 
Demo beginnt. (Sven-Silvius Schad/cd) 
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10 DATA SCd,SA5,SBB,111,SOO,SA1,&01,&08,&0 
0,SED,&B0, 1157 

20 OATA &21.&DF.SC6,S11,S00,&A1,506,&08,SC 
5,5E5,505, 1265 

30 DATA SCO.819.&BD,SF3,SOI,SEI,S06,S04,SC 
5,SEB.SCB, 1741 

40 DATA S06.SEB,SDD.S7E.SOO,S36.SOI,SAF.SO 

6.804.877, 949 

50 OATA SC5,801,SOO,SOS,809,SCI,810,SF7.81 
3 , SEB,SCB, 1128 

60 DATA 806,SEB.SDD,S7E,SOI,838,801,SAF,SO 

6.804.877, 950 

70 DATA SC5,SOI,SOO,SOS,809,SCI,810,SF7,SO 

I, SAF,&3F, 910 

80 DATA SEO,842,SCI,813,SOO.823,800,823,81 
0,SC7,SOI, 1243 

90 DATA S3F.801.SED,842,SEB,SOI,808,SOO,SE 
0,542,SEB. 1149 

100 OATA SE5,805,811,890,SC6,821,891,SC6,8 
06,804,SC5, 1384 

110 OATA 806,808,SC5,SOI,S4F,800.SE5,SD5,8 

EO. SBO.SDl, 1355 

120 DATA SEI,SOI,800,808.809,SEB.809,SEB,8 
CI,810,SEC, 1167 

130 DATA 801,SAF,S3F,SEO.842,SEB.SED,842,8 
E8.818,802, 1341 

140 OATA 818,882,SCI,810,809,818,801,801,8 
3A.896.8A0, 974 

150 OATA 83D,832,896,8A0,820,825.83E,802.8 
32.896.8A0, 914 

160 DATA 821,SCO,8A4,SIE,808,501,SOO,57F,8 
ED,859,87E, 1007 

170 OATA 8C6,840,SEO,579.523,810,820,8F5,8 

II. SC0.8A4, 1334 

180 DATA S1A,821,SCI,SA4,801,807,800,SED,8 
00,812,801, 1064 

190 DATA SEI,SCI,510,8C5,8C9,8CD,806,8B9.8 
F3.821.8FF, 1759 

200 DATA S4F,5DD,821,800,SA3.823,87E,8FE,8 

FF. 8C8.8FE, 1620 

210 DATA 510,838,50B,8E5,8DO,5E5,8CD,800,8 
AO,SDD,SEI, 1573 

220 DATA 8E1,818,8EC,8FE,S01,828,S3D,8FE,8 
02,828,83F, 1200 

230 DATA 8FE,803,*28,841,SFE.804,828,843,5 
FE,805,828, 1026 

240 DATA 545,818,809,800,800.500,800,500,8 
18,818,800, 150 

250 DATA 500,SFE,806,828,53C,SFE,809.828,8 
3E.8FE.80A, 989 

260 DATA 828,840,SFE,800,828,843,SFE,80C,8 
28,846,SFE, 1106 

270 DATA 50D,828,849,SFE,50E.828,54C.8FE,8 
0F.828.84F, 698 

280 DATA 518,SAB,800,821,880,8A1,818,8A5,8 
DD.821,SCO, 1373 

290 DATA 5A1,818,89F,SDD,521,800,8A2,818,8 
99,SDD,821, 1191 

300 DATA 840,8A2,818,893,5DD.821,880,5A2,8 
18,88D,SDD, 1327 

310 DATA 821,SCO,8A2.518,587,SDD,821,800,8 
A3.518,881, 1116 

320 DATA 800,521,840,8A3,SC3,5D6,SA0,5DD,S 
21,860,SA3, 1595 

330 DATA 8C3,8D6,8A0,8DD,521,8C0,SA3,8C3,8 
D6,8A0,SDD, 1968 

340 DATA 821,500,8A4,5C3,8D6,8A0,8DD,521,8 
40.8A4.8C3, 1443 

350 DATA 8D6,5A0,800,821,S8O,8A4,SC3,506,8 
AO,SOO,SCO, 1681 
360 DATA 00 

370 FOR 1 = 5A000 TO 5A181 
380 READ a:c=c+l 

390 IF c>ll THEN c=0 : ze 1 1 =2 e 1 1-F10 :1F chsum 
<>a THEN PRINfError ln Ze 11e:"ze11:chsum= 
0:a=0:GOTO 380 ELSE chsum=0:a=0:GOTO 380 
400 chsum=chsum+a 
410 POKE 1,a 
420 NEXT 


430 REM 
kommen d 


440 

REM 

s : 

Eo g 

450 

FOR 

EXT 


460 

DATA 

4 70 

OATA 

480 

OATA 

490 

DATA 

500 

OATA 

510 

DATA 

520 

DATA 

530 

OATA 


Das war das Programm , aber Jetzt 
1e DATEN fuer das Programm 
((( VIEL SPASS !J (Noch ein Hinwel 
Ibt auch die DATABOX) ))> 

1=SA180 TO 8A2FF:REAO a:POKE i,a:N 


SCO, 
80 c, 
Scc, 
830, 
SfO, 
83c, 
Sfc, 
803, 


ScO, 
50c, 
Scc, 
830, 
SfO, 
83c, 
Sfc, 
80 3 , 


ScO,ScO 
80c,80c, 
Scc,Scc, 
830,830, 
SfO,SfO, 
83c,83c. 
Sfc,Sfc, 
803,803, 


ScO, 
50c , 
Scc , 
830, 
SfO, 
53c, 
Sfc, 
803 , 


ScO, 
80 c, 
Scc, 
830, 
SfO, 
53c, 
Sfc , 
803 , 


ScO,ScO 
SOc.SOc 
Scc,Scc 
830,530 
SfO.SfO 
83c,83c 
Sfc,Sfc 
803,803 


[1512] 

[2372] 

[2983] 

[1947] 

[2336] 

[2065] 

[2788] 

[2567] 

[3896] 

[2534] 

[ 1 7 76 J 

[3223] 

[2648] 

[1910] 

[1723] 

[2313] 

[2017] 

[2856] 

[3189] 

[3070] 

[2308] 

[2371] 

[2632] 

[2947] 

[2056] 

[2520] 

[ 1625] 

[3331] 

[2902] 

[1824] 

[1962] 

[2943] 

[1654] 

[2042] 

[3053] 

[95] 

[751] 

[602] 

[6881] 


[ 1010 ] 
[ 157] 
[350] 
[4632] 

[3312] 

[1518] 

[1468] 
[1939] 
[ 2111 ] 
[1233] 
[2244] 
[1177] 
[1975] 
[1626] 


Listlng SCROLL 



540 

DATA 

8CO,80c,Scc,830,SfO,83c.Sfc.803 

[ 1420] 


550 

DATA 

SCO,80c,Scc,830,SfO,83c,Sfc,803 

[1420] 


560 

DATA 

ScO,80c,Scc,830,SfO,83c,Sfc,803 

[ 1420] 


570 

DATA 

ScO, 80 c,Scc,830,SfO,83c,Sfc,803 

[1420] 


580 

DATA 

ScO,80c,Scc,830,SfO,83c,8fc,803 

[ 1420] 


590 

OATA 

ScO,80c,Scc,830,SfO,83c,Sfc,803 

[1420] 


600 

OATA 

ScO , 80c,Scc,830,SfO,83c,Sfc,803 

[ 1420] 


610 

OATA 

ScO,80c,Scc,830,8f0,83c.Sfc,803 

[1420] 


620 

DATA 

803.8fc,83c,Sf0,830,Scc.80c,ScO 

[2359] 


630 

OATA 

803,8 fc,83c,8f0,830,Scc,80c,ScO 

[2359] 


640 

OATA 

803,Sfc,83c,SfO,830,Scc,80c,ScO 

[2359] 


650 

OATA 

803,Sfc,83c,Sf0,830,Scc,80c,ScO 

[2359] 


660 

OATA 

803,Sfc,83c,&f0,830.Scc,80c , ScO 

[2359] 


670 

OATA 

803 , Sfc,83c,SfO,830,Scc,SOc,ScO 

[2359] 


680 

OATA 

803,Sfc,83c,SfO,830,Scc,SOc , ScO 

[2359] 


690 

OATA 

803,&fc,83c,SfO,830,Scc,SOc,ScO 

[2359] 


700 

OATA 

803,803,803,803,803,803,803.803 

[ 1626] 


710 

OATA 

Sfc,Sfc,Sfc,Sfc,Sfc,Sfc,Sfc,Sfc 

[1975] 


720 

DATA 

83c,83c,83c,83c,8 3c,83c,83c, 83c 

[1177] 


730 

DATA 

SfO,SfO,SfO,SfO,SfO,SfO.SfO,SfO 

[2244] 


740 

OATA 

830,830,830,830,830,830,8 30,8 30 

[1233] 


750 

OATA 

Scc,Scc,Scc,Scc,Scc,Scc,Scc, Scc 

[2111] 


760 

OATA 

SOc, SOc, SOc, SOc.SOc, SOc, SOc, SOc 

[1939] 


770 

OATA 

ScO,ScO,ScO,ScO,ScO,ScO.ScO,ScO 

[1468] 


760 

OATA 

Sfc,83c,SfO,83 0,Scc,SOc.ScO , 803 

[1480] 


790 

OATA 

83c,Sf0,830,Scc,SOc,ScO,803 , Sfc 

[1730] 


BOO 

DATA 

SfO. 830, Scc, SOc, ScO , 803, Sfc, S3c 

[2053] 


810 

DATA 

830,Scc.SOc,ScO,SO3,Sfc.83c,SfO 

[941] 


820 

OATA 

Scc,SOc.ScO,803,Sfc,83c,SfO, 830 

[1027] 


830 

DATA 

SOc,ScO,803,Sfc,S3c,SfO,530,Scc 

[814] 


840 

DATA 

ScO,803,Sfc,83c,SfO,830,Scc,SOC 

[1691] 


650 

DATA 

SO3,Sfc,83c,SfO,830,Scc,SOc,ScO 

[2359] 


860 

DATA 

SO3,Sfc,83c,SfO,830,Scc,SOc,ScO 

[2359] 


870 

DATA 

Sc0,803,Sfc,83c,SfO,830,Scc,SOc 

[1691] 


880 

OATA 

SOc,ScO.803,Sfc,S3c,SfO,S30.Scc 

[814] 


890 

DATA 

Scc,SOc,Sc0,803.&fc,83c,SfO,830 

[ 1027 ] 


900 

DATA 

83 0,Scc,80c,ScO,803,Sfc,S3c,SfO 

[941] 


910 

DATA 

Sf0,830,Scc,SOc.ScO,803.Sfc,S3C 

[2053] 


920 

DATA 

83c,SfO.830,Scc,SOc,ScO,803,Sfc 

[1730] 


930 

DATA 

Sfc,S3c,8f0,S30,Scc,SOC,ScO,803 

[1480] 


940 

FOR 

=SA300 TO SA33F:POKE i,8C3:NEXT 

[2095] 


950 

FOR 

= SA340 TO 8A3 7F:POKE 1 ,SF:NEXT 

[1716] 


980 

FOR 

=SA380 TO 8A3BF:POKE t.SCF.NEXT 

[1448] 


970 

FOR 

=SA3C0 TO 8A3FF:POKE t,S33:NEXT 

[926] 


980 

FOR 

=SA400 TO 8A43F:POKE i,8F3:NEXT 

[2129] 


990 

FOR 

= SA440 TO SA4 7F:POKE 1,S3F;NEXT 

[817] 


1000 FOR 

1=8A480 TO SA4BF:POKE 1,8FF:NEXT 

[2337] 


1010 FOR 

1=SA4C0 TO SA4C7:READ a:POKE i,a: 

[531] 


NEXT 




1020 DATA 80B,813,81/.»04,804.817,813,808 

[1523] 


1030 REM 

Das hier (") sind uebrigene die F 

[3648] 


arbdataa 




1040 SAVE '*scrol 1 . bin” , b, 8A000,84FF 

[1204 ) 


1050 REM 

'FERTIG 

[ 572 ] 


1060 REM 

AUFRUF MIT CALL SAOCB 

[1664] 


1070 REM 

TEXTSPEICHER AB 85000 BIS PEEKiAD 

[1809] 


RESSE > = 8FF 



10 REM wenn das File SCROLL.BIN nicht vorh 

[5080] 


anden ist SCROLL.CRA starten 



20 IF PEEKC 8AOOO) = 0 THEN MEMORY S9FFF:LOAD 

[3207] 


"scrol 1 . bi n'' , SAOOO 



30 FOR 1= 

0 TO 15:RE AO a:INK i ,a:NEXT 

[1707] 


40 DATA 

,24,0.0,0,0,0,0,0,2,26,21,6,13,24 

[2807] 


50 BOROER 0 

[1008] 


60 adres3=S5000 

[ 307] 


70 a$= - '#09B*8 Scroll .*13 wrttten by * 

[ 16167] 


04S*01V*04E*01N#04~#01S#04I#01L*04V*01I*04 



U*01S*04 

S*04C*01H*04A*010 *12Thanks #138 



*14Greetings #13to *020#03L*02I»03V#02E*03 



R »03H»02E#03G*02G*03E*02L*03B*02A*03C*02H 



*03E*02R 

#11 for #05Spec1a! #06Effects" 



80 at=a$+" 

[714] 


90 FOR i 

1 TO LEN(a*)-l 

[850] 


100 

IF MIO$(a$,i,1)="#"THEN POKE adreas.VA 

[3943] 


L(MID$(a$,1 + 1,2)):i=i+2:GOTO 160 



110 

REM die lezte Zeile Ist fuer die färbe 

[ 192 7 J 


120 

REM 

zur erkennung ein # und dann 2 ze 

[3396] 


leben fuer die färbe) 



130 

REM Beispiel *10 waehlt PEN 10 

[2009] 


140 

REM fuer die andern Codes tabeile ansc 

[2711 ] 


hauen 




150 

POKE 

adres9,ASC(MID$(a$,1,1)) 

[2061) 


160 

ad ress=ad ress + 1:NEXT 

[874 ] 


170 

POKE 

adress , 255 

[565] 


180 

MODE 

0 

[507] 


190 

CALL 

SAOCB :GOTO 190 

[1213] 

Listing SCROLL 
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Frühlingslktion 

JOYCE-PCW Sonderhefte 2 und 3 zum Preis von einem! 




DMV braucht Platz für neue Ideen - darum müssen wir unsere Lager räumen. 

Allen JOYCE-Besitzern machen wir deshalb ein einmaliges Angebot: 

JOYCE Sonderheft 2 und Sonderheft 3 sind ab sofort im Kombi-Pack zum Preis von 20,- DM beim Verlag zu beziehen. 
- Sie sparen 50% gegenüber dem Einzelpreis! 

JOYCE Sonderhefte sind Sonderpublikationen der PC AMSTRAD International und bieten jeweils auf 120 Seiten 
ausschließlich erstmalig veröffentlichte Beiträge, Tips und Tricks zu PCW 8256, 8512 und 9512. 

Außerdem gibt es zu jedem JOYCE Sonderheft eine Databox, die alle im Heft veröffentlichten Programme lauffähig 
auf zwei 3“-Disketten enthält. Die Databox ist nicht im Frühlingsaktions-Preis inbegriffen. 


Aus dem Inhalt 
JOYCE Sonderheft 2: 

Programme: 

Adreßverwaltung 

Archivprogramm (Video-oder Literaturverwaltung) 
PASCAL-Compiler in BASIC 
Suburbia (Spiel ähnlich Monopoly (R)) 
Turbo-PASCAL-Graflkroutinen ohne GSX 
Komfortable Balkengrafik 
Tips: 

JOYCE-Zweitlaufwerk selbst anschließen 
3-D-Plotter 

Etikettendruckprogramm 
Ordnung auf der Diskette mit LocoScript 
Funktionstasten selbst belegen 
Spaltensatz unter LocoScript 
dBase-Handbuch selbst ausdrucken 
LOGO- Funktionenzeichner 


Aus dem Inhalt 
JOYCE Sonderheft 3: 

Programme: 

Vokabeltrainer 

RAM-Monitor-Speicherinhalte verändern 
Memory-Spiel 
Mini-DTP-Programm 
Drucker-Spooler unter CP/M 
Disketten-Kopierprogramm bis 43 Spuren 
Reset ohne Datenverlust 


Tips: 

Grafik auf dem JOYCE-Drucker 
Tastaturbelegung unter CP/M und 
LocoScript ändern 
Reset ohne Datenverlust 
Super-Werkzeugkiste dBase 
Grafikutilities für LOGO 


Best.-Nr. 34 20, — DM 


JOYCE Sonderheft 4 

Jetzt 120 Seiten! Supersoftware und Informationen. 


Aus dem Inhalt: 


Strickmustergenerator 

Wordstar-Verbesserungen 

Bundesligasimulator 

Super Reaktionsspiel 

FILEMANAGER 

Pulldown-Menüs 

Stichwortverzeichnis 

Astrologieprogramm 

Disketten monitor 

Hauptstädte raten in LOGO 

Statuszeile für dBase und Basic 

Hardcopyroutine für 24-Nadler 

LOGO macht Schachteln 

dBase-Literaturverwaltung 

Universelles Werkzeug zur Veränderung von 

dBase-Dateien 


JOYCE Sonderheft 4 

Best.-Nr. 367 


20,- DM* 


JOYCE DATABOX Sonderheft 


Hier finden Sie alle Programme und Dateien 
auf vier Diskettenseiten. 

470 KB nur vom Besten... 

Und dennoch behalten wir die alten Preise bei! 
Das Leistungsverhältnis, das sich für Sie 
bezahlt macht. 

Erhältlich als 3“-Disketten für alle 
PCW 8256/8512/9512 

Diskette 1 enthält alle Programme lauffähig. 
Diskette 2 enthält die Quellcodes. 

Disk. 1: Best.-Nr. 3671 30,- DM* 

Disk. 2: Best.-Nr. 3672 24,- DM* 

Kombipack Disk. 1 und 2: 

Best.-Nr. 3673 48,- DM* 

* Unabhängig von der Anzahl der bestellten Artikel 
berechnen wir für das Inland 3, - DM bzw. für das 
Ausland 5,- DM Porto und Verpackung. 


Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag • Postfach 250 ■ 3440 Eschwege 













r~Tips & Tricks 



Fix und fertig 
in drei Sekunden 

QSORT 

QSORT ist eine außerordentlich schnelle und komfor¬ 
table Sortierroutine für Arrays: 

Für 1120 unsortierte Wörter benötigt QSORT drei 
Sekunden. Zum Vergleich die Sortierroutine (Bubble¬ 
sort) aus dem SH 6/88: 125 sec! 


Eine leicht erweiterte Version von QSORT, die in einem 
Vokabelprogramm englische Wörter sortiert, die deutschen 
entsprechend mitbewegt und zusätzlich am Stringanfang 
“to“ ignoriert, leistet im Vergleich (560 Wörter): 

- direktes Auswahlen, Basic: 16 min. 

(gemütlich Kaffeetrinken) 

- Quicksort, in Basic: 80 sec. (Briefkasten leeren) 

- Quicksort, in MC: 3 sec 
(kurzer Blick aus dem Fenster)! 


für 6128 

I 



5 REM LISTING 1 
10 QSORT.LIN 

20 'MEMORY SA1FF:LOAD"QSORT.OBJ":CALL SA20 
0 / AUFRUF: !QSORT,m,a(1),a(r) 

30 FOR O=SA200 TO &A3E4:READ a$:w*=VAL("S" 

*•$) 

40 s=9+w*:POKE o,w*:NEXT 
50 IF 9058359 THEN PRINT "Feh 1 er " : ENO 
60 SAVE"QSORT.OBJ".b.8A200,S1E5:PRINT"QSOR 
T.OBJ Oh 

70 DATA 01.0F.A2.21.E1,A3,CD,Dl, BC,3E,C9, 
32.00.A2.C9.14 

80 DATA A2.C3,1A,A2,S1,53.4F.52, 04,00,FE, 
03,CO,DD,66,03 

90 DATA DD,6E,02,ED,52,00,19,05, E5,D0,7E, 
04,07,F5,3E,D8 

100 DATA 30,02,CB,9F,06,04.21,BO. A3.SE.23 
,56,23,12,10,F9 

110 DATA Fl,B7,1F,32,EO, A3.B7.il, C5,A3,28 
, 17,21,8F,A3,11 

120 DATA 85,A3,06,CO,30,20,04,57, 5F,06,BE 
, 70,23,73,23,72 

130 DATA 11,00, A3. DD,21 , AD, A3,01, 05,08, l'A 
,13,00,66,01,00 


[1168] 

[992] 

[4433] 

[2114] 

[1534] 
[2128] 
[3898] 

[1970] 

[1790] 

[2147] 

I2502] 

[2459] 

[1845] 

[2646] 


Listing QSORT 


Abtipphinweise 

Sie tippen den Datalader (Listing 1) ab. sichern ihn auf Dis¬ 
kette/Kassette und starten mit RUN. Anschließend befindet 
sich auf der Diskette/Kassette die fertige MC-Datei 
QSORT.OBJ . Wenn Sie noch QSORT.DEM (Listing 2) ab¬ 
tippen und starten, erleben Sie eine eindrucksvolle Demon¬ 
stration: QSORT.DEM holt die Basic-Schlüsselworte aus 
dem ROM (dort in absteigender Reihenfolge) und sortiert 
sie. Sie können QSORT.OBJ nun in jedes Basic-Programm 
einbauen und durch die Befehlsfolge 

MEMORY &A1FF:LOAD' 'QSORT.OBJ ' ' :CALL &A200 

aktivieren. 

Um ein Array zu sortieren, schreiben Sie: 

! QSORT,mode,@array(links) ,@array(rechts) 

Dabei bedeuten: 

- @array(links),@array(rechts): 

die unterste bzw. oberste Komponente des zu sortierenden 
Arraybereichs (es ist auch möglich, nur einen Teil des 
Arrays zu sortieren; bei String-Arrays darf beim CPC 6128 
“@“ fehlen). 

— mode: 

ein Integer-Wert zwischen 0-2 oder 128-130 (wird hier eine 
Variable eingesetzt, muß sie vom Typ Integer sein: a% oder 
besser DEFINT a). 

* Ist das siebte Bit bei mode gesetzt (also 128-130), wird 
absteigend sortiert, ansonsten gleiche Funktion wie 0-2. 

* 0: sortiert ein Integer-Array, zum Beispiel ! QSORT,0, 
zahl(0),zahl(100) 

* 1: sortiert ein String-Array, zum Beispiel ! QSORT ,1, 
wort(17),wort(100). 

Dabei dient die ASCIl-Tabelle als Sortierschlüssel, also 
Space vor Ausrufezeichen, ... Ziffern, . . .Großbuchstaben, 
große Umlaute, . . .Kleinbuchstaben, kleine Umlaute (ß). 

* 2: wie 1, jedoch werden die Strings für den Sortiervor¬ 
gang als Großbuchstaben betrachtet, “aber“ kommt also 
zum Beispiel vor “Acker“. 

Auf eine ursprünglich integrierte mit/.ählende Bildschirman¬ 
zeige wurde verzichtet, da die dadurch bewirkte Verzöge¬ 
rung bei dieser Sortiermethode bereits erheblich ins Gewicht 
fällt. (HelmutSteeb/cd) 


140 

DATA 

6E.00.77, 

DD, 

23. 

DD, 

23. 

79 , 

B8 , 

30 , 

04 

[3066] 

. 1A, 

23,77 

.13,10 










150 

DATA 

E9,3E.02, 

32 , 

DB, 

A3 , 

21, 

DB, 

A3 , 

35 , 

C8 

[2781] 

, E 1 , 

22. OC 

.A3,Dl 










160 

OATA 

E0.53.DE, 

A3, 

CD, 

DA , 

A 2 , 

05 . 

E 5 , 

CD, 

29 

[3544] 

i A3, 

30,19 

, ED , 5B 










170 

DATA 

DC , A3 , E1 , 

E 3 , 

EB, 

CD, 

, 3 A , 

A3. 

CI . 

30 , 

06 

[ 1912] 

. 05 , 

E 5,2 1 

,DB,A3 










180 

OATA 

34,ED,43, 

DC, 

A3, 

,18, 

, 15 , 

EO, 

56, 

DE , 

A3 

[3665] 

.El, 

CD, 3A 

,A3,CI 










190 

DATA 

30,06,05, 

ES, 

,21. 

DB, 

A3, 

,34, 

ED, 

«3, 

. OE 

[2493] 

.A3 , 

2A.0C 

, A3 , EO 










200 

DATA 

5B , DE , A3 , 

CD, 

, 3A, 

A3 

, 38, 

, BC, 

18 , 

AC, 

, ES 

[3148] 

, 05 , 

, EB,07 

, EO,52 










210 

DATA 

CB.3C.CB, 

, 10 , 

, 30 , 

0 1. 

, 2B , 

, 19 , 

4E , 

23, 

, 46 

12282] 

, 3 A , 

, EO,A3 

,B7,28 










220 

OATA 

12,CD,AB, 

, A3, 

, 11 , 

e 5 , 

, A3 , 

,06 , 

00 , 

, 05 

, 79 

[27701 

. 12 , 

, B 7 , 2 6 

,03,13 










230 

OATA 

£0,80,CI, 

,01, 

, El , 

,C0, 

,40. 

, A3, 

CO, 

, 59 

.A3 

[2594] 

.CO, 

, 3A,A3 

,38,01 










240 

DATA 

C0,C5,05, 

,06 

, 03 , 

, 1A 

. 4E 

,77,' 

79 

, 12 

. 23 

[2967] 

.13 

, 10.F7 

, Dl,C1 










250 

DATA 

CD,3A,A3, 

, 1B 

, 1B, 

, 1B 

, 38 

,00. 

C9 

, E 5 

. 2A 

[3085] 

. DE 

, A3 , ED 

i, 5B.0C 










260 

DATA 

A3 , 87 , ED 

, 52 

, CB 

, 3C 

, CB 

.10, 

19 

. 01 

, 7C 

[2989] 

, BA 

,C0,70 

i, BB,C9 










270 

DATA 

CD,73,A3 

, 3F 

, 08 

,C8 

.23 

. 23. 

23 

.18 

, F5 

[3681 J 

,23 

,78,BE 

, 2B , 20 










280 

OATA 

03,79,BE 

, C8 

, D8 

, 23 

.23 

, 18 , 

F 2 

. EB 

,CD 

[2534] 

. 73 

,A3,EB 

i.oa.cs 
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I 
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Tips & 


290 OATA 

1B,1B,1B 

. 16 

. F4 

. 13 

, IA 

,B8, 

1B 

, 20, 




■,08, 1B 










300 OATA 

1B.18.F2 

. 05 

, C5 

, E5 

. 56 

, OA , 

5 F 


,C0 


.AB,A3,03 

,C0,8E 









310 DATA 

> 

Cu 

m 

o 

,01 

,C9 

, 05 

,56, 

,CB, 

AA 




.BA,Dl,C9 

,OA,BE 










320 OATA 

00.00.3F, 

,C0 

,23, 

,03 

, 10, 

,15, 

7 B 


,ce 



.02.3C 









330 DATA 

C9,7A.87, 

,20, 

i E 9 , 

3C, 

,37, 

C9 , 

7E , 




,6F.C9.06 

,A3,09 










340 OATA 

A3,E4,A2, 

E6 , 

A2. 

14 , 

A3, 

46 , 

A3 , 

,23. 




.A3,54 










350 DATA 

A3.5E,A3, 

6E , 

A3. 

4B , 

A3 , 

65, 

A3 , 




.00,02,00 

,00.00 










360 DATA 

40,A3,59, 

A3, 

30, 

01 , 

28, 

03 , 

23. 





.75,OB 










370 OATA i 

01.El.A3, 

OF, 

A2 







[1217] 


5 REM LISTING 2 

10 QSORT.DEM 1.2 7.9.68 Helmut Steeb 
20 GOSU0 520 

30 z= "BASIC-SOrtterenfl = 1:GOSUB 70 
40 z="QS0RT-Sort1erenf 1 = 2 :GOSUB 70 
50 2="Integer-Sort1eren, abste1gend•"-f1 =3 
:GOSUB 70 

60 PRINT :CLS#1 : ENO 
70 ' 

80 'Sortieren 

90 PRINT z;:GOSUB 260:n0=TlME 
100 ON fl GOSUB 130,220.240 
110 PRINT 0EC$((TlME-n0)/30O,"###.#»”)" sc 
c. 

120 GOSUB 500:PRINT»!.z:GOTO 420 
130 ‘ 

140 'Basic 
150 FOR a=0 TO az-1 
160 PRINT#2.CHR$(13)a;:c=a 
170 FOR b=afl TO az 
180 IF w(c]>w(b) TUEN c=b 
190 NEXT 

200 IF coa THEN t=w (c) : w<c) =w( a) : w< a) = t 
210 NEXT:RETURN 
220 ' 

230 1QSORT,1,w(0),w(az)rRETURN'QSORT Modus 
240 ' 

250 !QSORT,128,@1<o),@1(az),RETURN'QSORT I 
nteger 
260 ' 

270 'Arrsy fuellen 

280 ON fl GOSUB 290,290,330:GOTO 420 
290 ' 

300 'BASIC-Worte 
310 CALL &A100,w(0) 

320 PRINT81,"Umgekehrt sortIertRETURN 
330 ' 

340 'Integer 

350 1=0:PRINT83,x"Array zusammenwuerfe1n:" 
x 

360 WHILE 1< az 
370 b=RND«az 

380 IF 1(b) = 0 THEN 1 = 1 + 1 :1 (b) = i :PRINT#4,C 
HR$(13)1; 

390 WEND 

400 CLS43:PRINT91,"Oas gewuerfelte Array- 
410 RETURN 
420 ' 

430 'Anzeige des Array 
440 PRINTK1 
450 FOR a=0 TO az 

460 IF fl=3 THEN PRINT#1,I(a); ELSE PRINT 
#1,w(a)" 

470 NEXT 

480 PRINT*1:PRINT#1 
490 ' 

500 PRINT#3,CHR$(7]x"8itte TASTE druecken" 

x 

510 CALL &BB06:CLS*3:RETURN 
520 ' 

530 'INIT 

540 DEFINT a-k:DEFSTR p-z:MOOE 2 

550 az=165:0IM w(165),1<165):x=CHR$(24) 

560 WINDOW#1,1,80,5,25:WINOOW#2,22,26,1,1 
570 WINDOW#3,45,80,2.2:WINOOW#4,68, 72,2,2 
580 MEMORY &9DFF:LOAO 'qsort.obj“:CALL &A20 
0 

590 PRINT“QSORT.OBJ ok / 

600 FOR m=&A100 TO &A14C 

610 READ s:b=VAL["4”+s):n=n+b:POKE m,b 

620 NEXT 

630 IF n< >9 425 THEN PRINT”Feh 1 er ln Datas! 

": END 

640 PRINT"MC-Code fuer Demo ok 
650 GOSUB 490:CLS 

660 LOCATE 1,4:PRINT STRING$<80.45):LOCATE 
1,1:RETURN 

670 DATA 05,CD.00,B9,21,35,E7,01, EA,02,11 
,EA.AO,ED,08,00 

680 DATA E1,06,5A,E8,23,2B,E5,OE, 01,70 23 
> 7E,FE,09,20,02 

690 DATA CB,9E,0C,CB,7E.28,F3,CB, BE 23 E3 
, DD, 71,00, DD, 75 

700 DATA 01,00.74,02,00,23,00,23, 00,23 El 
,23,97.BE,20,05 

710 DATA 05,78,FE,41,08,23,97,BE. 20,CB,05 
,18,C9 

Listing QSORT 


[1163] 
I1406] 
[925] 
[3230] 
[3194] 
[3359] 

l1308] 

[117] 

[223] 

[1193] 

[1134] 

[2360] 

[2283] 

[117] 

[631] 

[969] 

[355] 

[906] 

[811] 

[350] 

[2824] 

[940] 

[117] 

[1656] 

[117] 

[4520] 

[117] 

[1268] 

[1167] 

[117] 

(1069] 

[812] 

[3126] 

[117] 

[160] 

[2872] 

[1091] 

[715] 

[3531] 

[390] 

[1781] 

[ 555] 
[117] 
[1151] 
[318 ] 

[ 773] 

( 1812] 

[350] 

[ 789 ] 
[117] 
[2893] 

[ 705 ] 
[117] 
[223] 
[2169] 

[1869] 
[1343] 
[2143] 
[2994] 

[1625) 
[855] 

[ 1848] 

[350] 

[2459) 

[1546] 

[1098] 
[4257] 

[2257] 

12355] 

[3557] 

[2419] 

[2661) 


PR8-SOFT 

Telefon: 0931/464414 

Das Programmpaket mit dem herausragenden Testergebnis. 
In fünf der möglichen Bewertungskriterien fünf mal die Note 1 
(Heft 1/88 PC Schneider International). 

DISCOLOGY ist voll menügesteuert. 50 Bildschirmseiten Hilfs¬ 
text und Handbuch komplett in Deutsch. 

DAS PROGRAMM FÜR DEN INTERESSIERTEN ANWENDER 

DISC OLO G Y 

CPC DISC TOOLS 

NEU! 

: n „5.i 


Cupiw 


CTMTITl 


DISCOLOGY 



0I:M ccpib EPwm 

„•I Mir 1- mte'! ]■* *Urili ml Rare kühn 

IO UEE.a CJIHDI InfnrwUgue, tislributM in U -Cw«ng bg PS8-SCFI 


jetzt in 
Versi 


Für alle CPC’s 

3"-Diskette 

nur 

DM 99.- 


ECHTE DESKTOP-GRAFIK AM SCHNEIDER/AMSTRAD CPC 

MicroDesign 

Für CPC 6128 (oder CPC 464/664 

mit DK-Tronics Speichererweiterung) DM 99.- 

MICRODESIGN mit AMX-kompatibler Maus DM 248.- 

CHERRY PAINT Komfortables Malprogramm, Menüsteue¬ 
rung (Joystick, Tastatur, Maus). Ausdruck in versch. Größen. 

Für alle CPC's 3" -Diskette DM 49.90 

PRINT MASTER Druckprogramm mit 20 versch. Schriften, 
incl. Schriftendesigner. Für alle CPC's 3" -Diskette DM 59.90 

MAXELL CF2 3 -Disketten 10 Stück nur DM69. - 

ab 50 St. : DM 57.-/IO St., ab 100 St.: DM 55.-/10 St. 


für CPC 464/664 DM348.- 
für CPC 6128 DM368.- 


VI Dl-CPC Videodigitiser 

Weitere Angebote und Spiele in unserem Katalog! 

Tel. Bestellung (24 Stunden): 0931/46 4414, FAX: 0931/464413 
PR8-SOFT Klaus-M. Pracht • Postfach 500 • D-8702 Margetshöchheim 

Lieferung per Nachnahme (Versandkosten DM 5 - + NN-Gebühr) oder gegen Scheck 
(+Versandk. DM 5.-). Auslondslieferungen gegen Scheck (+ Versandkosten DMIO.-j 

X 

□ Schicken Sie mir Ihren neuen Katalog (DM 3 - in Briefmarken hegen bei) 
BESTELLUNG (incl. kostenlosem Katalog) □ per Nachnahme 

O mit beiliegendem Scheck 


(Computertyp: 


Name _ 
Straße. 


Tel . 


ELI. Ort. 


Datum, UnJerscbrib 
























































I Tips & Tricks 


Kunterbunt 

Texte einmal anders 


Streifenschrift ist ein Utility zur schöneren und inter¬ 
essanteren Gestaltung von Bildschirmzeilen, wie zum 
Beispiel der untersten Zeile bei Spielvorspannen/ 
Auswahlseiten, die den Spieler oder Anwender über 
Tastenfunktionen oder ähnlichen informiert. 


Streifenschrift ist ein Maschinenprogramm, das im Speicher 
ab Adresse &A000 abgelegt wird und &0448 Bytes lang ist. 
Es stellt insgesamt fünf RSX-Befehle zur Verfügung. Diese 
lauten im einzelnen: 



! SICHERN, A$,zeile 

Mit Hilfe dieses Befehls wird der Textausdruck, der in A$ 
ist, in die Zeile “zeile'‘ auf den Bildschirm gebracht und an¬ 
schließend in den Bufferbereich von Streifenschrift abgespei¬ 
chert. Zu beachten ist dabei, daß A$ nicht länger als die ma¬ 
ximale Spaltenanzahl des jeweiligen Modus ist. 

! FARBEN ,farbe(l) ,farbe(2) ,farbe(3),... ,farbe(8) 

Durch Aufruf dieses Befehls in der angegebenen Weise wird 
jeder Pixelreihe der Texlzcile in A$ eine Farbe (PEN) zuge¬ 
ordnet. 


A$ benutzt werden, wenn mit ! STREIFEN.ON die Routine 
gestartet wurde. 

Weiterhin muß man erwähnen, daß die RSX-Befehle 
! SPEED und ! FARBEN jederzeit nach ! STREIFEN.ON 
benutzt werden können. Mit Hilfe dieser Befehlsbeschrei¬ 
bung und dem Demoprogramm, in dem einige Anwendun¬ 
gen dieses Utility aufgezeigt sind, müßte nun jeder in der 
Lage sein, mit Streifenschrift umzugehen. 

Abtipphinweise 


1 STREIFEN.ON 

Nachdem die ersten beiden Befehle ausgeführt wurden, kann 
das Ganze mit ! STREIFEN.ON gestartet werden. 

! SPEED,geschw 

Zu diesem Befehl muß man lediglich den Definitionsbereich 
der Variablen “geschw' 4 angeben. Dabei steht 0 für beson¬ 
ders schnell und 255 für extrem langsam. Um aber ein akzep¬ 
tables Ergebnis zu erreichen, sollte “geschw'‘ zwischen 0 
und 10 gewählt werden. 

: STREIFEN .OFF 

Mit dem letzten Befehl beendet man die Bewegungsabläufe 
der Streifen. Er sollte auch vor jedem Zugriff auf Diskette 
(Kassette) angewandt werden, damit der Rechner nicht ab- 
stürzl. Des weiteren sollte er auch vor dem Aufruf! SICHERN. 


Nach dem Abtippen sollten Sie das Programm unter “strei¬ 
fen. ldr" abspeichern. Danach können Sie es mit RUN starten. 
Da das Demoprogramm mit dem Datalader eingebunden 
wurde, kann man sich gleich von den Fähigkeiten des Pro¬ 
gramms überzeugen. Möchte man aber nur den Binärenteil 
benutzen, so kann es wie folgt geschehen: 

1. Unterbrechen des Demoprogramms, durch zweimaliges 
Drücken der ESC-Taste. 

2. Eingeben von ! Streifen.off 

3. SAVE “streifen.bin“,b,&A000,&448 

4. Zum späteren Gebrauch: LOAD “streifen.bin“,&a000 
und CALL &A001 (der Text, der in der Demo zu sehen 
war, taucht wieder auf). Danach können Sie aber wie 
oben beschrieben Ihre Texte ausgeben. 

Viel Spaß! 

(Frank Schimmel/cd) 


für 464-664-6128 


1000 ' Demo-Programm zu Streifenschrift (4101) 
1010 ' von Frank Schimmel {19081 [21113 

1020 ' [117] 

1030 ' Hier sollte Jeder seine eigenen Far [4641] 
bzuwe1sungen 

1040 ' erstellen (Pgm-Erstel1ung m. Gr [3404] 

een Monitor) 

1050 INK 2,14 [188] 

1060 ' MC-Programm elnpoken [1918] 

1070 MEMORY &9FFF:ad*&A000:s*=7:1n=3400:1n [2007] 
3tp=10 

1080 ON ERROR GOTO 1120 [1531] 



1090 su=0:READ a$:cs=VAL<"S"+a*l;FOR 1=«d [7449) 

TO ad + sz:REA0 a$;a=VAL("&"+a$):POKE 1 ,a:su 
=su+a:NEXT IF csOau THEN PRINT"DATA ERROR 
in"+STR$(ln):END 

1100 ad=ad+sz+l:ln=ln+1nstp:GOTO 1090 [4142] 

1110 MODE l:PRINT"DAT As o.K.":CALL &A000:G [4461 ] 
OTO 1150 

1120 IF ERR=13 THEN RESUME 1110 [1490] 

1130 ON ERROR GOTO 0 [1381] 

1140 • DEMO Hauptschielfe [1158] 

1150 RESTORE 19B0:F0R 1=2 TO 0 STEP-1 [2359] 

1160 FOR a=l TO 3 [773] 

1170 READ a$(a) [390] 

1180 NEXT [350] 

1190 FOR b=1 TO 3 [1127] 

1200 FOR a=l TO 8 [764] 

1210 REAO färbe(b,a) [723] 

1220 NEXT [350] 

1230 NEXT [350] 

1240 FOR a=l TO 3 [773) 


Listing Kunterbun! 


Listing Kunterbunt 






















HU-öestenservice 

Hiermit mache ich von Ihrem Angebot Gebrauch und bestelle: 

SOFTWARE 


5 V 4 

“ 

I 3 Vz‘ 


1_ 

229 

□ 

235 

□ 

Hyperkey (MS-DOS) 

DM 

99.- 

225 

□ 

231 

□ 

Fraktal Generator 2 D (MS-DOS) 

DM 

49,— 

248 

□ 

249 

□ 

Fraktal Generator 3 D (MS-DOS) 

DM 

69,- 

228 

□ 

234 

□ 

ConText PC (MS-DOS) 

DM 

99,— 

227 

□ 

233 

□ 

BCI DlsAsm/186 (MS-DOS) 

DM 

199,— 

242 

□ 

243 

□ 

FontEdlt PC (MS-DOS) 

DM 

99,— 

236 

□ 

237 

□ 

MausAII (MS-DOS) 

DM 

29,90 

238 

□ 

239 

□ 

Maskedlt Plus (MS-DOS) 

DM 

99,— 

246 

□ 

247 

□ 

C-Funktlons-Sammlung (MS-DOS) 

DM 

99,- 

2801 

□ 

2802 

□ 

TOOLBOX Spezial 1: (MS-DOS) 

DM 

35,- 

2804 

□ 

2805 

□ 

TOOLBOX Spezial II: (MS-DOS) 

DM 

35,- 

2806 

□ 

2807 

□ 

TOOLBOX Spezial III: (MS-DOS) 

DM 

35.— 

2808 

□ 

2809 

□ 

TOOLBOX Spezial IV: (MS-DOS) 

DM 

35,- 

2811 

□ 

2812 

□ 

TOOLBOX Spezial V: (MS-DOS) 

DM 

35,- 

2813 

□ 

2814 

□ 

TOOLBOX Spezial VI: (MS-DOS) 

DM 

35,— 

2815 

□ 

2816 

□ 

TOOLBOX Spezial VII: (MS-DOS) 

DM 

35.— 

2220 

□ 

2221 

□ 

InfoWare (MS-DOS) 

DM 

69.— 

2222 

□ 

2223 

□ 

InfoWare (PC-DOS) 

DM 

69,- 

2224 

□ 

2225 

□ 

InfoWare (GW-Basic) 

DM 

69,— 

2226 

□ 

2227 

□ 

InfoWare (Quick-Basic) 

DM 

69,- 

2228 

□ 

2229 

□ 

InfoWare (Turbo-Basic) 

DM 

69,— 

2230 

□ 

2231 

□ 

InfoWare (Quick C) 

DM 

69,— 

2232 

□ 

2233 

□ 

InfoWare (Turbo C) 

DM 

69,— 

2234 

□ 

2235 

□ 

InfoWare (Assembler 8086/8088) 

DM 

69,- 

2236 

□ 

2237 

□ 

InfoWare (Lotus 1-2-3) 

DM 

69,— 

2238 

□ 

2239 

□ 

InfoWare (MS-Word 30/4.0) 

DM 

69,— 

2240 

□ 

2241 

□ 

InfoWare (Word Perfekt 4.25) 

DM 

69,— 

2242 

□ 

2243 

□ 

InfoWare (PC-Grundlagen) 

DM 

69,— 

2244 

□ 

2245 

□ 

InfoWare (C-Grundlagen) 

DM 

69,- 

2246 

□ 

2247 

u 

InfoWare (Framework II) 

DM 

99,— 

2248 

□ 

2249 

□ 

InfoWare (dBase III plus) 

DM 

99,- 

252 

Ü 

253 

□ 

ERGO 

DM 

149,— 

2402 

□ 

2401 

□ 

Topspeed Modula 2 Compiler 

DM 

348,— 

2404 

□ 

2403 

ü 

Topspeed Modula 2 Techkid 

DM 

248,— 

2406 

□ 

2405 

□ 

Topspeed Modula 2 Debugger 

DM 

248,- 

6001 

□ 

6002 

□ 

DOS-Tools Vol. 1 

DM 

69,- 

6003 

0 

6004 

□ 

DOS-Tools Vol. 2 

DM 

69,- 

6005 

□ 

6006 

□ 1 

DOS-Tools Vol. 3 

DM 

49,- 


□ Den Betrag bezahle Ich mittels des bei- + Porto/Verpackung 

gelugten Verrechnungsschecks. (Inland 3.— DM, Ausland 5,— OM) 

□ Ich bitte um Lieferung per Nachnahme 

zuzüglich der Nachnahmegebühr (nur Gesamtbetrag 
innerhalb der BRD). 


Dalum 


Unle'schrift (bei Minderjährigen aos gesetzlichen Vertreters) 
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»JOYCE-Bestellservice« 
Knüller für JOYCE-Fans 

Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit: 


303 _ 

_Stck. 

Databox zum JOYCE SH 1 

30,- DM 

304 _ 

_Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 2 

30,- DM 

305 ^ 

Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 2 

24,- DM 

306 

_Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 2 

48,- DM 

360 

Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 3 

30,- DM 

361 _ 

_Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 3 

24,- DM 

362 

Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 3 

48,- DM 

367 _ 

_Stck. 

Sonderheft JOYCE Nr. 4 

20,- DM 

3671 

_Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 4 

30,- DM 

3672 

Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 4 

24,- DM 

3673 _ 

_Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 4 

48,- DM 

215 _ 

Stck. 

JOYCE Programmsammlung Vol. 1 

59,- DM 

216 _ 

_Stck. 

JOYCE Programmsammlung Vol. 2 

49,- DM 

217 

Stck. 

JOYCE Programmsammlung Vol. 3 

69,- DM 

219 

_Stck. 

JOYCE Programmsammlung Vol. 4 

59,- DM 

220 _ 

_Stck. 

JOYCE Programmsammlung Vol. 5 

99,- DM 

221 

Stck. 

JOYCE Programmsammlung Vol. 6 

59,- DM 


+ Porto/Verpackung 

(Inland 3.- DM, Ausland 5, - DM) _ 

Gesamtbetrag ____ 

Zi Den Betrag bezahle ich mittels des beigefügten Verrechnungsschecks. 
□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(Bei Lieferung ins Ausland ist Nachnahme nicht möglich.) 


3 5 ~ 
&|8£ 

§!?=! 
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Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 
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Tips & Tricks i 


1250 READ geschw(a) 11403] 

1260 NEXT [360] 

1270 MODE 1 (386] 

1280 FOR a=l TO 3 1773] 

1290 !SICHERN,9a$(a),24 [950] 

1300 [FARBEN,farbefa,1),farbe(a,2),farbo(a [7267] 
,3),farbe(a,4),farbe(a,5),farbe<a,6),farbe 
(a,7),färbe(a.8) 

1310 ISPEED.geachwla) [1857] 

1320 iSTREIFEN,ON [1511] 

1330 CALL &8806 [393J 

1340 !STREIFEN.OFF [1369] 

1350 CLS [91] 

1360 NEXT a [383] 

1370 NEXT 1 [375] 

1380 GOTO 1150 [309] 

1390 ' MC-Code STREIFENSCHRIFT [2261] 

1400 DATA 02DE.00.21,00,AO.36,C9.FD,21 [627J 

1410 DATA 040C.AE.A1,11,9B,A1.FD,72,01 [1072] 

1420 DATA 0375,FD,73,00,11,94,Al,21,9E [1661] 

1430 DATA 02F6.A0,73,21,5E.A0.01,23,AO [1727] 

1440 DATA 04E9.C3,Dl,BC,34,A0,C3,62,A0 [1284] 

1450 DATA 04FO,C3,73,A0,C3,AE,A0.C3.46 [1554] 

1460 DATA 03C9,A1,C3.86.A1,53.54,52,45 [1202] 

1470 DATA 02CO,49,46.45,4E,2E,4F,CE,53 [1583] 

1480 DATA 0238,54,52.45,49,46,45,4E.2E [1353] 

1490 DATA 02C7,4F,46,C6,53,49,43,48,4S [2149] 

1500 DATA 034E,52,CE,46 I 41,52,42,45.CE [1881] 

1510 DATA 01F1,53,50.45,45,04.00,00,00 [973] 

1520 DATA 02IF,00,00,21,A7,A1,06,9F,11 [1937] 

1530 DATA 04F8,79,AO.CD,EF.BC.21,A5.Al [1722] 

1540 DATA 0560,C3,DA,BC,21.A5,A1.C3,DD [2294] 

1550 DATA 0569,BC,D9,CB,09,ED,49,09,21 [1867] 

1560 OATA 0313,93.Al,7E,FE,05,28,02.34 [1352] 

1570 DATA 0511,C9,97,77,FD,21,AE,Al,CD [1656] 

1580 DATA 0473,12.Al,FD,21,AE,Al,FD,56 [2360] 

1590 OATA 02F5,01,FD,5E,00,7B,FE,00,20 [1718] 

1600 DATA 0285,05,11,98,Al,18,01,10,FD [2126] 

1610 DATA 03AC,72,01,FD,73.00.C9,FE,02 [1144] 

1620 DATA O33F.C0.DD,46,00,05,78,B7,28 [1940] 

1630 DATA 0164,09,21,00,CO,11,50,00,19 [1234] 

1640 DATA 03C0,10,FD,22,A3,Al,DD,6E,02 [1515] 

1650 DATA 0286,DD,66,03,46,23,4E,23,66 [1392] 

1660 OATA 0561,69,£5,C5,CD,93,BB,F5,3E [2212] 

1670 DATA O398,0F,CD,9O,BB,DD,6E,0O,26 [1772] 

1680 OATA 0586,01,CD,75,BB,Fl,C1,El,F5 [594] 

1690 DATA 0470.7E.CD,5A,BB,23,10,F9,Fl [1432] 

1700 OATA 045F.CD.90,BB,2A,A3,Al,11,C8 [1763] 

1710 DATA 037F.A1,06,08,C5,05,E5,01,50 [1740] 

1720 DATA 04FE.00.ED.BO, El,CD,26,BC,Dl [1112] 

1730 DATA 0301,EB,01,50,00,09,ES,CI,10 [1212] 

1740 DATA 049B,EA,C9,11,C8,A1,2A,A3,Al [2317] 

1750 DATA 0419,06,08,C5.E5,FD,66,01,FD [1806] 

1760 DATA 037E,BE,00,7E.23.FD,21,BO,Al [1706] 

1770 OATA 0330,FD,74,01.FD,75,00,21,38 [2056] 

1780 OATA 0434,Al,77,El,£5,06.50.IA,E6 [1793] 

1790 OATA 0363,00,77,13,23,10,F8,El,CD [1692] 

1800 OATA 0457,26,BC,C1,10,D5,C9,FE,08 [1512] 

1810 OATA 037F,C0,CD,11,BC.FE,02,20,05 [1934] 

1820 DATA 02B7,21,B2.Al,18,OC.FE,01,20 [1740] 

1830 DATA 026F,05,21,B4,A1.18,03,21,BB [1146] 

1840 OATA 03A6,Al,06,08,11,98,Al,C5.E5 [1135] 

1850 DATA 01D8.DD,4E,OE,06,00,09.7E,12 [1325] 

1860 DATA 0305,El,13,DD,2B,DD,2B.C1,10 [977] 

1870 DATA 03B3,ED,21,9B,Al,23,11,94,Al [1566] 

1880 DATA 0360,01,07,00,EO,BO,C9,FE,01 [2226] 

1890 DATA 03A3.C0,DD,7E,00,32,84,AO,32 [1063] 

1900 DATA 0202,93.Al,C9,05,00,00,00,00 [1607] 

1910 DATA 0000,00,00,00,00,00,00,00,00 [1335] 

1920 DATA 0000,00,00.00.00.00,00.00,00 [1335] 

1930 DATA 0000.00,00,00.00,00.00,00.00 [1335] 

1940 OATA 02FD,00,00,00,FF,00,FO,OF.FF [1519] 

1950 OATA O3F0,0O,CO,OC,CC,30,FO,3C,FC [1666] 

1960 OATA 0408,O3,C3,0F,CF,33,F3,3F,FF [2280] 

1970 DATA 0000,00.00,00,00,00,00,00,00 [1335] 

1980 1 [117] 

1990 ‘ [117] 

2000 ' Hier sollten Sio besonders mit [2422] 

2010 ' den Farben und Geschwindigkeiten [1134] 

2020 ' experimentieren [743] 

2030 1 [117] 

2040 ' TEXT FUER STREIFENSCHRIFT [1717] 

2050 OATA '• DAS IST DAS DEMO- [4366] 

PROGRAMM ZU STREIFENSCHRIFT IN MODE 2" 

2060 DATA " LEIDER NICH [3187] 

T SO TOLL WEGEN DER WENIGEN FARBEN" 

2070 OATA “ GESCHRIE [3628] 

BEN VON FRANK SCHIMMEL IN 1988" 


2080 1 FARBEN FUER STREIFENSCHRIFT [1555] 


2090 

DATA 

0,0,0,1.1,1.1,1 



[1280] 

2100 

DATA 

0.0,1.1.1,1,1,1 



[ 737] 

2110 

DATA 

1,1,1,0,0,0,0,0 



[8731 

2120 

' DIE 

: GESCHWINDIGKEIT 



[1230] 

2130 

DATA 

8,4,1 



[166] 

2140 





[117] 

2150 

' BEI 

DEN ANDERN MODI HABEN 

OIE 


[2360] 

2160 

' DATAs ENTSPRECHENDE BEDEUTUNG 


[3283] 

2170 





[1171 

2180 

DATA 

" DAS IST OAS DEMO-PROGRAMM 

(MO 

[2976] 

OE 1)" 





2 190 

OATA 

” ZU DEM UTILITY 'STREIFENSCH 

[2119] 

RIFT ' 






2200 

DATA 

“ GESCHRIEBEN HAT ES 

FRANK 

SCH 

[2139] 

IMMEL" 





2210 

OATA 

1,1,1,2,2,3.3,3 



[898] 

2220 

DATA 

0,0,1,1,2.2,3,3 



[1157] 

2230 

DATA 

2,2.2,1,1,1,1,1 



[603] 

2240 

DATA 

7.5.3 



[395] 

2250 

DATA 

* DEMO IN MODE 0" 



[1125] 

2260 

OATA 

" V. STREIFENSCHRIFT" 



[ 453] 

2270 

DATA 

" VON FRANK SCHIMMEL" 



[1054] 

2280 

OATA 

1,2,3,4.5,6,7,8 



[ 577 ] 

2290 

DATA 

1,1,9,9.4,4,7,7 



[907] 

2300 

DATA 

9,9,12,12,15.15,1,1 



[658] 

2310 

DATA 

7,5,4 



[394] 




FRAKTAL- on 
Generator OU 


Neu: 

Die Dritte 
Dimension 



Vergessen Sie den grauen Alltag: Der FRAKTAL GENERATOR 3D ent¬ 
führt Sie in märchenhafte Landschaften voller bizarrer Formen und Far¬ 
ben. Werden Sie zu einem Forscher im Wunderland der Fraktale. Ent¬ 
decken Sie Welten, die vor Ihnen noch nie ein Mensch erblickt hat, und 
speichern Sie Ihre Erinnerungsfotos auf Diskette oder Festplatte, um 
sie später einem staunenden Bekanntenkreis vorzuführen... 


Die Fakten: Der FRAKTAL GENERATOR 3D ist... 

...unglaublich schnell: Nur 6 Minuten 30 Sekunden braucht der CPC, 
um das Apfelmännchen - auf dem CPC als 3D-Landschaft darzustellen 
- Weltrekord für 8-Bit-Rechner! 

...farbenfroh: 10 gleichzeitig darstellbare Farben in MODE 1 durch 
eine trickreiche Mischtechnik. 

...vielseitig: Neben den Bildern der Mandelbrot-Menge ('Apfelmänn¬ 
chen’) erzeugt der FRAKTAL GENERATOR 3D auch die daraus abge¬ 
leiteten Julia-Mengen und liefert damit eine Vielzahl weiterer interes¬ 
santer Bildmotive. 

...komfortabel: Die Bedienung erfolgt konsequent über Pulldown- 
Menues. Die Bilder können auf Diskette/Cassette archiviert oder auf ei¬ 
nem Matrixdrucker im DIN-A4- oder DIN-A5-Format ausgegeben wer¬ 
den. Auf dem CPC 6128 hält der FRAKTAL GENERATOR 3D mehrere 
Bilder im Speicher, zwischen denen beliebig gewechselt werden kann. 
...flexibel: Zahlreiche einstellbare Parameter ermöglichen eine indivi¬ 
duelle Bildgestaltung: Beliebiger Blickwinkel horizontal/vertikal, vergrö¬ 
ßerte Ausschnitte per Auswahlrahmen, minimale/maximale Rechentie¬ 
fe. Höhenfaktor, Glättungsfunktion, Darstellung der Fraktale als Berg¬ 
oder Talstruktur mit oder ohne ’Hidden Line'-Algorithmus. usw. 



Autor: Matthias Uphoff 


Ein Meisterstück der Computergrafik, das in keiner Software¬ 
sammlung fehlen sollte - jetzt auch für den CPC, mit dem vol¬ 
len Leistungsumfang der PC-Version! 


CPC 

Cassette 

Best.-Nr. 210 


59,- DM (unverbindliche Preisemplehlung) 

Wenn Sie über den DMV-Bestellservice bestellen, gilt leigendes: 

Inland: Ausland: 

Einzelpreis 59.- OM Einzelpreis 59.- DM 

zzgl Versandkosten 3,- OM zzgl. Versandkoslen 5,- DM 

Endpreis 62.- OM Endpreis_ 64.- DM 


CPC 

Diskette 

Best.-Nr. 211 


69.- DM (unverbindliche Preisemplehlung) 

Wenn Sie über den DMV-Bestellservice bestellen, gilt lolgendes; 

Inland: Ausland: 

Einzelpreis 69.- DM Einzelpreis 69.- DM 

zzgl. Versandkosten 3,- DM zzgl Versandkosten 5, - DM 

Endpreis 72.- DM Endprcis 74,- DM 


Listing Kunterbunt 


Bitte benutzen Sie die Bestellkarte 


DMV-Verlag ■ Postfach 250 • 3440 Eschwege 





















|—'Tips & Tricks 


Schattenlichter 

3D-Texte leicht erzeugt 

Mit diesem Programm lassen sich dreidimensionale 
Schriften auf dem Bildschirm ausgeben. Geben Sie 
Ihren Programmen einen besonderen Touch. 

Um mit dem Programm zurechtzukommen, sollten Sie das 
ganze Listing erst einmal abtippen und abspeichern. Danach 
starten Sie das Programm und lassen die eingebaute Demo 
ihr Werk tun. 

Programm ohne Demo 

Um das Programm ohne die Demo zu benutzen, also nur das 
Binärfile, geht man wie folgt vor: 

1. Demo zu Ende laufen lassen und weiter mit Punkt 2. 

2. SAVE “Schatten.bin“,b,&A000,&4E 


3. Zum Laden: LOAD “Schatten.bin“,&A(X)0. Eventuell 
kann ein MEMOMY &9FFF nötig sein. 

4. Initialisierung mit CALL &AOOO, 1 .färbe,2.färbe,x-Ko- 
ordinate,y-Koordinate. 

5. Texte, die erscheinen sollen, werden ab der Speicherzelle 
&9FD7 ‘gepokcdL Zum Beispiel: POKE &9FD7,ASC 
(“H“):POKE &9FD8,ASC (“A“). 

6. Die Länge ist auf 40 Zeichen begrenzt und muß in der 
Speicherzelle &9FD6 ‘gepoked‘ werden. Zum Beispiel: 
POKE &9FD6,40. 

Weitere Beschreibungen finden Sie im Programm selbst. 

Hinweis 

Das Assemblerlisting wurde mit dem CPC-Assembler aus 

Heil 6/88 geschrieben und kann deshalb ohne Probleme mit 

dem gleichen assembliert werden. 

(Michael Röhrl/cd) 


für 464-664-6128 



10 ' Schattenschrlft [1438] 
20 1988 by Michael Roehrl [1273] 
30 • (e> PC AMSTRAO International [1201] 
40 ' Aufruf: call SAOOO.1.Farbe,2.Farbe,x, [1691] 


50 ' Ab Adresse &9FD7 muss der Text stehen [2831] 
60 1 An Adresse &9FD6 muss sich die Laenge [1863] 
70 1 des Textes befinden (hoechstens 40 Ze [2857] 

1 chen ) 

80 MEMORY &9FFF [134] 

90 FOR adr=SA000 TO &A04E:REA0 a*:POKE adr [2534] 

,VAL("S"4a$):NEXT 

100 DATA 3E,01.CO,63.BS.DD,5E.02 [584] 

110 DATA DD.56,03,DD,6E,00,00,66 [397] 

120 DATA 01,CO,CO,BB,DD,7E,04,CD [626] 

130 OATA DE,BB,21,D6.9F,46,21,07 [1510] 

140 DATA 9F,7E,CD,5A,BB,DD.7E,06 1873] 

150 DATA CD,DE,BB,E5,11,F4,FF,21 [1093] 

160 OATA F8,FF,CD,C3,BB,E1,7E,CD [2150] 

170 DATA 5A,BB,23,E5,00,7E,04,CD [1604] 

180 DATA DE,BB,11,FE,FF,21,08,00 [1254] 

190 DATA C0.C3,BB,El,10,D3,C9 [716] 

200 1 [ 117 ] 

210 ' [117] 

220 ' Dieses Demo kann weggelassen werden [1769] 
230 1 [117] 

240 MODE 1 [506] 

250 CALL &8C02 lnk‘s normal [913] 

260 GOTO 400 [452] 

270 ' [117] 

280 ' Die folgende Routine POKE'd die Buch [4217] 
staben ab &9F07 

290 1 [117] 

300 READ a$ [309] 

310 FOR 1=1 TO LEN(a$) [791] 

320 POKE S9FD641,ASC(MID$(a$,1 , 1) ) : 1 Buch [3045] 
staben poken 

330 NEXT [350] 

340 a=LEN(a$) [1312] 

350 POKE &9FD6.B I * Laenge poken [2557] 

360 RETURN [555] 

370 1 C117] 

380 1 Das war die Routine zum elnPOKEn [2776] 

390 1 [117] 

400 OATA SCHATTENSCHRIFT [1741] 

410 GOSUB 300 [1016] 

420 CALL &A000,1,3,140,300 [1437] 

430 DATA (C) 1988 by Michael Roehrl [1782] 

440 GOSUB 300 [1016] 

450 CALL &A000,2,3,40,200 [1528] 

460 DATA TASTE [437] 

470 GOSUB 300 [1016] 

480 CALL SAOOO,3,2,240,20 [1113] 

490 CALL 6BB06 [393] 

500 INK 0,10 [54] 

510 INK 1,26 [56] 

520 INK 2,0 [109] 

530 MODE 1 [606] 

540 DATA "Befehlsformat:" [1676] 

550 GOSUB 300 [1016] 

560 CALL &AOOO,1,2,10,200 [1235] 

570 OATA "CALL SAOOO,1.FARBE,2.FARBE,X,V“ [2345] 
580 GOSUB 300 [1016] 

590 CALL &A000,1,3,10,150 [1261] 

600 CALL SBB06 [393] 

610 CALL S8C02 [353] 

620 MODE 1 [506] 

630 DATA Ab Adresse S9FD7 muss sich [1181] 

640 GOSUB 300 [1016] 

650 CALL SAOOO, 1,3,20,340 [1414] 


Listing Schaltenlichter 


660 

DATA der darzustellende Text 

[1458] 

670 

GOSUB 300 

[1016] 

680 

CALL SAOOO,1,3,50,300 

[1390]- 

690 

DATA befinden 

[397] 

700 

GOSUB 300 

[1016] 

710 

CALL SA000.1,3,170,260 

[1540] 

720 

DATA An der Adresse S9FD6 muss 

[2843] 

730 

GOSUB 300 

[1016] 

740 

CALL SAOOO,1,3,25,220 

[1390] 

750 

OATA die Laenge befinden 

(1489] 

760 

GOSUB 300 

[1016] 

770 

CALL SAOOO,1,3,70,180 

[1226) 

780 

DATA TASTE 

[ 437 ] 

790 

GOSUB 300 

[1016] 

800 

FOR 1=0 TO 200 STEP 2:CALL SAOOO,1,3,1 

[ 1919] 

.20 

NEXT 


810 

CALL SBB06 

[393] 

820 

MODE 1 

[506] 

830 

DATA Abspeichern 

[392] 

840 

GOSUB 300 

[ 1016] 

850 

CALL SAOOO,2,3,20,300 

[1476] 

860 

DATA "Save 1 name 1 ,b,SAOOO,S4E 

[1927] 

870 

GOSUB 300 

[1016] 

880 

CALL SAOOO,1,2,10,100 

[1271] 

10 

j Schattenschrift 

[1026] 

20 

; by Michael Roehrl 

[ 825 ] 

30 

; 23.10.88 

[661 ] 

40 


[215] 

50 

; Befehlsformat : 

[ 758] 

60 

; CALL SAOOO,1. Farbe,2.Farbe,x-KOOrd 

( 15S3] 


Koord. 


70 

; von 40919 bis 40959 : Zeichen fuer 

[3197] 

d 1 e 

Schrift 


80 

; 40918 : Laenge 

[891] 

90 

j 

[215] 

100 

* ; 

[215] 

110 

1 org SaOOO ; Anfangsadresse SaOOO 

[1682] 

120 

1 ; 

[215 ] 

130 

1 d a , 1 ; a= 1 

[1127] 

140 

1 call Sbb63 ; TAG 

[1111] 

150 

ld e , (1xf 2) ; Lowbyte x-Koordlnate 

[2809] 

160 

' ld d,(1x+3) ; Highbyte x-Koordlnate 

[2268] 

170 

' ld 1,(1x4-0) ; Lowbyte y-Koordlnate 

[2465] 

180 

1 ld h,(1x+1) ; Highbyte y-Koordlnate 

[2899] 

190 

1 call SbbcO ; Move x,y 

[956] 

200 

ld a,(Ixt4) j 2. Farbe 

[ 869] 

210 

1 call Sbbde ; Graphics Pen 3 

[1064] 

220 

1 ld hl ,40918 ; HL mit 40918 

[2049] 

230 

1 text ld b,(hl) 

[7381 

240 

1 ld hl,40919 ; Buchstaben 

[1655] 

250 

' druck ld a,(hl) ; a mit Buchstaben l 

[4352] 

aden 


260 

call Sbb5a ; Buchstabe ausgeben (dun 

[2172] 

kel > 


2 70 

1 ld a, (1x46) ; 1. Farbe 

[ 1439] 

280 

1 call Sbbde ; Graphics Pen 1 

[1858] 

290 

1 push hl ; HL retten 

(1213) 

300 

1 ld de .-12 ; x =-12 

[1098] 

310 

1 ld hl,-8 ; y=-8 

[ 989 ] 

320 

1 call Sbbc3 ; Mover x.y 

[1359] 

330 

pop hl j HL holen 

[617] 

340 

‘ ld a,(hl) ; a mit Buchstaben laden 

[2627] 

350 

call Sbb5a ; Buchstabe ausgeben (hei 

[2001] 

360 

1 tnc hl ; HL erhoehen 

(1203] 

370 

‘ push hl ; HL retten 

[1213] 

380 

' ld a,(1x44) 1 2. Farbe 

[ 869 ] 

390 

' call Sbbde ; Graphics Pen 3 

[1864] 

400 

ld de,-2 ; x = -2 

[1585] 

410 

' ld hl,8 ; y=8 

[1001 ] 

420 

call Sbbc3 ; Mover x,y 

[1359] 

430 

' pop hl ; HL holen 

[617] 

440 

’ djnz druck ; letzter Buchstabe ? wen 

[5384] 

n nicht -> druck 


450 

ret ; Zurueck zu BASIC 

[1732] 

Listing Schattenlichter 



72 PC 4’89 
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Einzelbezugspreis für DATABOX: 

PCW - 3“-Disk. PC - 5 1/4“-Disk. 


24, - OM (unverbindliche Preisemptehlung) 

Wenn Slo übor don DMV BoslollservIce bestellen, gilt lolgondos: 





Einzelpreis 24,- DM 

Einzelpreis 

24,- DM 

zzgl, Vorsandkosten 3.- DM 

zzgl. Versandkosion 

5,- DM 

End preis 27,- DM 

Endpreis 

20,- OM 


Das Databox Abo kostet: 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin. 150,- DM 

Im europäischen Ausland. 160,- DM 

Im außereuropäischen Ausland. 180,- DM 


Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin. 300,- DM 

Im europäischen Ausland. 320, - DM 

Im außereuropäischen Ausland,.. 360,- DM 

Bitte benutzen Sie für Ihre Bestellung die 
Abo-Karte. 

Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungs¬ 
scheck) oder als Nachnahme zuzüglich der 
Nachnahmegebühr. 

(Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich) 


Widerrufsrecht: 

Wir garantieren jedem 
Abonnenten das Recht, 
seine Bestellung inner¬ 
halb einer Woche nach 
Abschluß schriftlich beim 
DMV-Verlag, Postfach 
250, 3440 Eschwege 
zu widerrufen. Die recht¬ 
zeitige Absendung des 
Widerrufsschreibens ge¬ 
nügt zur Fristwahrung. 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 

Bitte Bestellkarte benutzen 

























I Tips & Tricks 


Zeichensatz 

International 

- ein CONTEXTUtility 

Als Textverarbeitungsprogramm benutze ich gerne 
Context. Mich stört dabei immer, daß nur unter CP/M der 
Zeichensatz umgestellt werden kann. (Siehe Handbuch: 
Kapitel 7, Seite 54.) 

Mit diesem Programm kann man nun den Zeichensatz un¬ 
ter Basic umstellen. 

Am Anfang müssen Sie den Drucker auf EPSON einstellen 
und die Dipschalter (DS1-8) auf OFF schalten. Starten Sie das 
Programm und wählen Sie eine der vielen Sprachen aus. 



I$*NZ0E$tSCH 

DEUTSCH 

ENGLISCH 

»AENXSCH 

SCHWEDISCH 

ITALIENISCH 

S* (WISCH 


SPANISCH 

!!i '****#■ 

T>r u .;>( (mc eitis.Qlwi.ltim . 


Jetzt können Sie auch bei CONTEXT unter verschiedenen 
Zeichensätzen wählen. 


Die Auswahl 

Durch Cursor up oder Cursor down bewegen Sie den Pfeil zur 
Auswahl, dann betätigen Sie die RETURN-Taste betätigen. 
Nun wird ein Programm erzeugt, das den Zeichensatz gene¬ 
riert und anschließend unter “s.sym“ abspeichert. Nach der 
READY-Meldung sollten Sie CONTEXT mit LOAD “CON- 
TEXT.BAS“ laden. 

Zwischendurch 


Im Programm CONTEXT müssen, bevor Sie das Programm 
starten wollen, folgende Zeilen geändert werden: 

Zeile 30 KEY DF.F 24,1,126,94,0 (neu einfügen) 

Zeile 100 SYMBOL AFTER 91 löschen 
Zeile 130 GOSUB 1920 löschen 
Zeile 280 ganz löschen 
Zeile 1360: (neu /Ansprungzeile) 

Zeile 1370 GOSUB 1880:gosub 1920 löschen 


für 464-664-6128 

r —- 



10 MODE 1 

*? 1.24:INK 2,15:1NK 3.24,1:00 

ROER 1:PAPER 0 
30 SYMBOL AFTER 32 

90 GOSUB 1520:SYMBOL 125.a(1), B (2).a(3 ) ,r 
4),a(5),a(6),a(7),a(B) ' ‘ 

100 GOSUB J520:SYMBOL 126..<1),.( 8 ). a (3,.« 

(4),a(5),a(6),a(7),a(8> 

110 FOR anz=229 TO 254:GOSUB 1520:SYMBOL a 

n NEXT n '*' 2> '' t3>, * (4>, ' l5>,a(6) -“ (7J,a(8> 
120 PEN l:ZONE 2 
130 LOCATE 6.2:PRINT CHR$(24);" 
NATIONALE CHRS(24) 

140 LOCATE B , 3 : PRINT CHR$(24):” 

E N S [ T Z E ";CHR$[24) 

150 LOCATE 3,5:PRINT”F : “ . " " 

),CHR$(231),CHR$(232),CHR$(166)," . 

R$(233),CHR$(234),CHR*(239),CHRJ(235 ) 

160 LOCATE 3,7 : PRINT " 0 : "•• •••■ •■ C HRS f 1 s« 

).CHRS(91).CHRS(92),CHRS(93).CHR$(123),CHR 
$( 124),CHRS(125).CHRS(126) 

170 LOCATE 3,9 : PRINT "GB : ’*, CHRS( 163 ) 

180 LOCATE 3,11: PR INT "OK: " ,. - •• CHR 

246 4 ^CHRS^24? 43 ’ '244 ) ,CHRS(245),CHR*( 


I N 


H 


”.CHR$(230 
' ,CH 


[506) 

[3234] 

[1296] 

[3444] 

(3086) 

[3730] 

[ 3758 ) 

[3727] 

[3642] 

[3157] 

(2747) 

[802] 

[3276] 

[4889] 

[ 6471 ] 

[6402] 


[2376] 
I7083] 


Listing 


Zeichensatz 


Zeilen 1920 — 2090 ganz löschen 
Zeile 2100 RETURN (neu) 

Genauso wie die deutschen Umlaute liegen nun die Sonderzei¬ 
chen des internationalen Zeichensatzes auf den gleichen Tasten 
und werden vom Drucker entsprechend ausgegeben. Wenn im 
Programm die Zeile 1480 gelöscht wird, so befindet sich der 
Zeichensatz des Landes als “FILE.SYM“ auf der Diskette und 
kann ins eigene Programm eingebaut werden. Geschrieben wur¬ 
de das Programm auf einen CPC 6128, mit einem Grünmonitor 
und angeschlossenem Drucker DMP 3000. Vielleicht kann es 
anderen Lesern der PC AMSTRAD ebenso nützlich sein wie 
mir. 

Hinweis 


Dieses Programm funktioniert nur, wenn der Drucker soge¬ 
nanntes “Download“ beherrscht. 

(Gerd Eiselt/cd) 


190 LOCATE 3,13:PRINT"S “,CHR$(229),c [7467] 

HR$(248),CHR*(91),CHR$(92),CHR*(244), CHR*( 
93),CHR$(233).CHR$(123),CHRS(124),CHR*(247 
),CHR$(125) 

200 LOCATE 3,1S:PRINT"I “ •• CHR r 6487] 

$(231)," “,CHR$(233),CHR$(234),CHRS(230) - 
• , ‘,CHR$(249) ,CHR$(239) ,CHR$(250> 

210 LOCATE 3,17:PRINT"E :”,CHR*(251),“ [71121 

,CHR*(252) ,CHR$(253) , CHR$ (174)," « ” C 

HR*(235),CHR$(254) 

220 PEN 2:LOCATE 2,20:PRINT'BItte Diskette [4885] 
Im Laufwerk lassen .” 

230 PEN 3:IF INP(SF500) AND 64 TMEN LOCATE [6721] 
6,22:PRINT"Bttte Drucker e1nscha1ten...”- 
GOTO 230 

240 PEN 2:LOCATE 6,22:PRINT" [2399] 


250 LOCATE 2,24:PRINT"Mlt den CURSOR-Taste 
n Pfeil >> bewegen.” 

260 ZONE 1 

270 LOCATE 1,5:PR INT ”>>” 

280 FOR wa=l TO 500:NEXT:y=5 
290 IF INKEY(0)=0 THEN LOCATE l.y:PRINT " 
":y=y-2:IF y<5 THEN y=S 
300 LOCATE 1,y:PRINT">>" 

310 IF INKEY{2)=0 THEN LOCATE l,y:PRINT" 
:y=y+2:IF y>17 THEN y=17 
320 LOCATE 1,y:PRINT”>>” 

330 FOR wa=1 TO 50:NEXT 
340 w=(y-3)/2 

350 IF INKEY(13)=0 OR INKEY(6)=0 THEN PEN 

l.-ON w GOTO 380,510,650,710,830,1000,1130 

360 IF INKEY(79)=0 THEN PEN 1:END 

370 GOTO 290 

380 Satz F 

390 fl 1e$="f” 

400 GOSUB 1250 

410 GOSUB 1350:RESTORE 1650:GOSUB 1290 
420 GOSUB 1360:RESTORE 1660:GOSUB 1290 
430 GOSUB 1370:RESTORE 1670:G0SUB 1290 
440 GOSUB 1300;RESTORE 1900:GOSUB 1290 
450 GOSUB 1410:RESTORE 1680:GOSUB 1290 


Listing Zeichensalz 


[4927] 

[512] 
[1398] 
[1466] 
[5129] 

[1773] 

[ 2000 ] 

[1773] 
[1385] 
[ 734] 
[3225] 

[1078] 

[411] 

[340] 

[400] 

[873] 

[2600] 

[2681] 

[2382] 

[2224] 

[2363] 
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"Tips & Tricks—| 


460 GOSU8 1420:RESTORE 1690:GOSUB 1290 
470 GOSUB 1430:RESTORE 174O:GOSU0 1290 
480 GOSUB 1440:RESTORE 1700:GOSUB 1290 
490 PRINTH9,"95 pr1nt#B.ehr$(27) + chr$(82 ) + 
chr$( 1) ; " 

500 GOSUB 1460 

510 ‘Satz 0 

520 fl 1 

530 GOSUB 1250 

540 GOSUB 1350:RESTORE 1900:GOSU8 1290 

550 GOSUB 1360:RESTORE 1570:GOSUB 1290 

560 GOSUB 1370:RESTORE 1580:G0SUB 1290 

570 GOSUB 1380:RESTORE 1590;GOSUB 1290 

580 GOSUB 1410:RESTORE 1600:GOSUB 1290 

590 GOSUB 1420:RESTORE 1610:GOSUB 1290 

600 GOSUB 1430:RESTORE 1620:GOSUB 1290 

610 GOSUB 1440:RESTORE 1630:GOSUB 1290 

620 PRINT»9,“95 pr1nt»8.ehr*(27)+chr*(82)+ 
chr*<2);" 

630 GOSUB 1460 
640 GOSUB 1460 
650 ‘SATZ GB 
660 FILE*=“flb" 

670 GOSU8 1250 

680 GOSUB 1350:RESTORE 1910:G0SUB 1290 
690 PRINT#9, "95 pr1nt*8,chr$(27>+chr$(82)♦ 
ehr*(3);“ 

700 GOSUB 1460 
710 ‘Satz DK 
720 f11e*=" Ok" 

730 GOSUB 1250 

740 GOSUB 1360;RESTORE 1770:GOSUB 1290 
750 GOSUB 1370:RESTORE 1780:GOSUB 1290 
760 G0SU8 1380:RESTORE 1790:GOSU8 1290 
770 GOSUB 1410:RESTORE 1800:GOSUB 1290 
780 GOSUB 1420:RESTORE 1810:G0SUB 1290 
790 G0SU8 1430:RESTORE 1820:G0SUB 1290 
600 PRINT*9,“9S prtnt#B,chr*(27)+chr*<82)+ 
chr*(4);“ 

810 GOSUB 1460 
820 GOSUB 1460 
830 Satz S 
840 f11e*='S" 

650 GOSUB 1250 

860 GOSUB 1340:RESTORE 1930:G0SUB 1290 
870 GOSUB 13S0:REST0RE 1830.GOSUB 1290 
880 GOSUB 1360:RESTORE 1570:GOSUB 1290 
890 GOSUB 1370:RESTORE 1580:G0SUB 1290 
900 GOSUB 1380;RESTORE 1790:G0SUB 1290 
910 GOSUB 1390:RESTORE 1590:G0SUB 1290 
920 GOSUB 1400:RESTORE 1680:G0SUB 1290 
930 GOSUB 1410:RESTORE 16O0:GOSUB 1290 
940 GOSU8 1420:RESTORE 1610:GOSUB 1290 
950 GOSUB 1430:RESTORE 1820:GOSUB 1290 
960 GOSUB 1440:RESTORE 1620:GOSUS 1290 
970 PRINTag,"95 pr1nt*8,chr$(27)*chr$(82>+ 
ehr*(5);* 

980 GOSUB 1460 
990 GOSUB 1460 
1000 'Satz I 
1010 fl 1e*«"I" 

1020 GOSUB 1250 


+ ch r$(6 ) ;“ 

1110 GOSUB 1460 
1120 GOSUB 1460 
1130 'Satz E 
1140 fl 1a*=“E" 
1150 GOSUB 1250 


[2224) 
[2471) 
[3044] 
[34481 

(903) 

[334] 

[380] 

[873] 

[2843) 

[1970) 

[ 2012 ) 

[3191] 

[3247] 

[2128] 

[2814] 

[2655] 

[3248] 

[903] 

[903] 

[356] 

[ 762] 
[873] 
[3001] 
[3304] 

[903] 
[341 ) 
[453] 
[873] 

[1612] 
[2322] 
[2326] 
[2638] 

[ 1939] 
[2913J 
[3360] 

[903] 
[903] 
[375] 
[406] 
[873] 
[2763] 
[2771] 
l 1970] 
[ 2012 ] 
[2326] 
[2621] 
[1348] 
[3247] 
[2128] 
[2913] 
t 3094] 
[3352] 


1 1290 

1903] 

[903] 

[345] 

[338] 

[8731 

[2681] 

) 1290 

[2157] 

1 1290 

[2033 ] 

1 1290 

[3174] 

1 1290 

[1701] 

1 1290 

[2471] 

1290 

[2533] 

ehr* < 82) 

[3408] 

1290 

[903] 

[903] 

[333] 

[314] 

[873] 

[1874] 

1290 

[1696] 

1290 

[1553] 


Listing Zeichensatz 


1190 GOSUB 1380:RESTORE 1920:G0SUB 1290 
1200 GOSUB 1410:RESTORE 17O0:GOSUB 1290 
1210 GOSUB 1420:RESTORE 1890:G0SUB 1290 
1220 PRINT49, "95. prl nt#8 , c hr$ (2 7 )+chr* [ 82 
+chr$(7) ;“ 

1230 GOSUB 1460 
1240 GOSUB 1460 
1250 : 

1260 OPENOUT"!"+f11e$+".aym" 

1270 PRINTag,"5 SYMBOL AFTER 35" 

1280 RETURN 
1290 : 

1300 FOR J=1 TO 7:READ a( ) ):PRINT99,A(J); 
.:NEXT 

1310 READ AC8):PRINT*9,A(8) 

1320 RETURN 

1330 PRINT49,"8 SYMBOL 35iRETURN 
1340 PRINTag,"9 SYMBOL 36RETURN 
1350 PRINT#9,"10 SYMBOL 64,“;:RETURN 
1360 PRINT#9,"20 SYMBOL 91, “ ; :RETURN 


[2528] 
[2255] 
[2175] 
) [3336] 

[903] 

[903] 

[174] 

[2128] 

[2460) 

t 555 ] 

[174] 

" [2545] 

[1663] 

[555] 

[1505) 
[1479] 
[2238] 
[2570] 


30 

SYMBOL 

92, 

RETURN 

[2691 ] 

40 

SYMBOL 

93,": 

RETURN 

[2412] 

45 

SYMBOL 

94, " ; 

RETURN 

[1993] 

48 

SYMBOL 

96, " ; 

RETURN 

[2069] 

50 

SYMBOL 

123, " 

:RETURN 

[2882] 

60 

SYMBOL 

12 4," 

;RETURN 

[ 1942] 

70 

SYMBOL 

125, “ 

:RETURN 

[1631] 

80 

SYMBOL 

126, “ 

:RETURN 

[1970] 





[555 ] 





[174] 

11C 

eis " 



[1525] 


1450 RETURN 
1460 : 

1470 PRINT #9, 

1480 PRINT#9, __ _ 

1490 PRINT99,“120 new" 

1500 CLOSEOUT 

1510 x*=f11e$+".sym“:RUN x* 

1520 : 

1530 FOR 1=1 TO 8 
1540 READ a(1) 

1550 NEXT 
1560 RETURN 

1570 DATA 102,0,24,60,102,126,102,0 
15B0 DATA 102,0,60.102,102,102,60,0 
1590 DATA 102,0,102,102,102,102,60,0 
1600 OATA 102,0,120,12,124,204,118,0 
1610 OATA 102,0,0,60,102,102,60,0 
1620 DATA 102,0,0,102.102,102,62,0 
1630 OATA 60,102.102,108,102.102,108,0 
1640 OATA 129,60,102,195,102,60,129,0 
1650 DATA 48,24,120,12,124,204,118,0 
1660 OATA 56,68,56.0,0,0,0,0 
1670 DATA 0,0,60,96,96,60,0,24 
1680 DATA 12.24,60,98,126,96,60.0 
1690 DATA 48.24,102,102,102,102,60,0 
1700 OATA 0,102,0,0,0,0,0,0 
1710 OATA 60,66,0,102,102,102,62.0 
1720 OATA 60,66,56,24,24,24,60,0 
1730 OATA 60,66,60,102.126,96.60,0 
1740 DATA 48,24,60,98,126,96.60,0 
1750 DATA 60,66,60,102,102,102,60,0 
1760 DATA 60,66,120,12,124,204,118,0 
1770 DATA 62,120,216,254,248,216,222,0 
1780 DATA 122,204,206,214,230,102,188,0 
1790 DATA 24,0,24,60,102,126,102,0 
1800 DATA 0,0,108,26,126,216.110.0 
1810 DATA 0,0,122,204,214,102,188,0 
1820 OATA 24,0,120,12,124,204.118,0 
1830 OATA 12,48,126,96,124,96,126,0 
1840 DATA 48,24,0.60.102,102,60.0 
1850 DATA 48,24,0,56,24,24,60,0 
1860 DATA 96,144,148,238,132,132,131,0 
1870 DATA 24,0,24,24,24.24,24,0 
1B80 DATA 100,76,0,102,118,110,102,0 
1890 DATA 50,76,0,220,102.102,102,0 
1900 OATA 30,48,56,108,56,48,240,0 
1910 OATA 124,102,96,248,96,102,254.0 
1920 OATA 24.0.24,48.102,102,60.0 
1930 OATA 129,60,102,195,102,60.129,0 


Listing Zeichensatz 


[1758] 

[1238] 

[902] 

[2936] 

[174] 

[462] 

[585 ] 

[350] 

[555] 

(1649] 

[1523] 

[1970] 

[ 1490] 

[1594] 

[1411] 

[1105] 

[1511 ] 

[1355] 

[771] 

[887] 

[1174] 

[1423] 

[1533] 

[941 ] 

[1007] 
[1450] 
[1324] 
[1300] 
[1778] 
[1742] 
[1583] 
[1306] 
[1129] 
[1362] 
[1425] 
[1339] 
[1180] 
[12B8) 
[986] 
[1466] 
[1318] 

[1245] 
[1503] 

[ 1240] 
[1395] 
[1511) 
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I JOYCE 


“Drücke Fl“, 
sprach der Herr . . . 

. . . und siehe da, 
es erschien das Directory 

Wer hat nicht schon selber festgestellt, wie nützlich es sein kann, 
Befehle, welche immer wieder eingegeben werden müssen, per 
Tastendruck parat zu haben. Um jetzt nicht andere, schon auf der 
normalen Funktionstastenebene bestehende, Funktionen zu über¬ 
schreiben, müssen diese Funktionstasten auch auf der ALT- bzw. der 
EXTRA-Ebene belegt werden. 


Das Programm FTASTEN arbeitet im 
wesentlichen selbsterklärend. 

Nach dem Programmstart mit A>FT 
< RETURN > fordert es zur Eingabe 
einer Ziffer (1, 3, 5 oder 7) für die zu 
belegende Funktionstaste auf. Danach 
muß ein Großbuchstabe (N, S, E, A 
oder X) für den gewünschten Status, 
das heißt die Tastaturebene Normal, 
Shift, Extra, Alt oder Alt + Shift, ein¬ 
getippt werden. Es folgt die Texteinga¬ 
be, die durch Drücken der RETURN- 
Taste abgeschlossen werden muß. Jetzt 
ist die gewählte Taste mit dem eingege¬ 
benen Text belegt. Nun kann die näch¬ 
ste Taste benutzt oder eine schon beleg¬ 
te überschrieben werden. Falls beides 
nicht zutrifft, kann man das Programm 
mit Groß-Q verlassen. 


Vor Abschluß der Texteingabe mit 
RETURN kann der Text mit den Stan¬ 
dardsteuerzeichen beliebig editiert 
werden. 

Da das Programm FTASTEN für die 
Belegung der Funktionstasten mit rei¬ 
nem Text geschrieben wurde, können 
diese Steuerzeichen nicht mit in den 
Text aufgenommen werden. 

Eine wichtige Ausnahme bildet Con- 
trol-M, das einen Text als Befehl an 
CP/M-Plus weitergibt — also wie das 
Betätigen der RETURN-Taste wirkt. 
Control-M kann am Ende eines Textes 
(und nur da) als Pfeil (!) eingegeben 
werden. 

Die Funktion “Speicher leeren“, die 
durch Eingabe von Groß-L aktiviert 


wird, löscht sowohl die Belegung der 
Funktionstasten als auch die anderer 
Tasten, sofern sie (etwa durch das 
Hilfsprogramm SETKEYS) über die 
Erweiterungszeichen 80h bis 9Eh vor¬ 
genommen wurde. 

Erhalten bleibt aber (bzw. wiederher¬ 
gestellt wird) die durch die CP/M- 
Plus-Startdatei vordefiniertc Tastenbe¬ 
legung (vgl. 1, Anhang 1, S. 11), da 
diese von FTASTEN direkt (das heißt 
ohne die Erweiterungszeichen zu be¬ 
nutzen) in die Tastaturbelegungstabelle 
geschrieben wird. 

Die Aufgabe der Funktion “Speicher 
leeren“ besteht einfach darin, dem Pro¬ 
gramm FTASTEN mehr Speicherplatz 
für die Belegung der Funktionstasten 
mit Text zur Verfügung zu stellen. 

Um Konflikte mit dem Programm 
SETKEYS zu vermeiden, werden die 
Erweiterungszeichen, die FTASTEN 
auf den verschiedenen Tastaturebenen 
benutzen würde, auf dem Bildschirm 
angezeigt. 

Der Speicherbereich 
für die Erweiterungsstrings 

In der CP/M-Plus-Tastaturbelegungs- 
tabelle (vgl. 3, S. 107), die in Bank 0 
die Adressen 1780h bis 1914h belegt, 
ist für jede Taste, für die ein Erweite¬ 
rungsstring definiert ist, das zuge¬ 
hörige Erweiterungszeichen notiert. 

Der Speicherbereich für die Erweite¬ 
rungsstrings beginnt dann, ebenfalls in 
Bank 0, mit der Adresse 2876h und ist 
151 Bytes groß (besser: klein). Das er¬ 
ste Byte beinhaltet die Länge des zum 
Erweiterungszeichen 80h gehörenden 
Strings, danach folgt der String. Das 
nächste Byte enthält die Länge des 81h- 
Strings, gefolgt vom String selber 
usw., bis zum 9Eh-String. 

Ist ein String nicht definiert, folgt auf 
sein Längenbyte, das dann auf 00h ge¬ 
setzt ist, das des nächsten Strings. 

Bei 31 Längenbytes (je eines für die Er¬ 
weiterungszeichen 80h bis 9Eh) blei¬ 
ben also lediglich 120 Bytes für die 
Strings übrig. Im Extremfall können 
sie entw-eder alle auf eine Taste gelegt 
oder aber auf 31 Tasten verteilt 
werden. 


■MHHi I 


Funktionstaste aaehlen: 
Status uw ehlen: 

Text eingeben: 




FmMimiUskiii 


f 1/f 2 
f 3/f4 
f 5/f 6 
i*7/f 8 


L = Speicher leeren 
Q - Prograan beenden 


Status / belegte £rw,-2chn: 

N = Norftal / 81,83,85,87 
S = Shift / 82,84,86,88 
E = Extra / 9B,9C,9D,9E 
A = Alt / 8B,8C,8D,8E 
X = Alt+Shift t 8F,M,92,98 


Ieatfiinsatai 

t = Pfeil aa Textende 
setzt Ctrl-N (RETURN), 

Naxiftale Textlaenoe 
betraegt 120 Zeichen. 


Abb. I: Alle Eingabemöglichkeilen auf einen Blick 
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JOYCE-n 


In der CP/M-Plus-Startdatei J14G- 
CPM3.EMS belegen die dort vordefi¬ 
nierten Erweiterungsstrings (vgl. 1, 
Anhang 1, S. 11) und ihre Längenbytes 
die Adressen 1347h (minus 100h) bis 
1383h (minus 100h). Hier sind es folg¬ 
lich nur 30 Bytes, die nach Bedarf ge¬ 
ändert werden können. 

Auf andere Tasten bekommt man sie 
natürlich nur, wenn man gleichzeitig 
die Tastaturbelegungstabelle (vgl. 3, 
S. 107) ändert. 

(Dieter Osterloh/rs) 
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Dieses Programm ist in Assembler geschrieben, lim 
es zu compilieren und unter CP/M starten zu können, 
.sollten folgende Schritte beachtet werden: 

Nach dem Eingehen in einem Editor unter dem 
Namen FT, ASM abspeichern. 

Nun sind unter CP/M folgende Befehle einzugeben: 

1. MAC FT. ASM 

2. HF.XCOM FT. HEX 

Die entstandene Datei FT. COM kann nun unter 
CP/M durch Eingabe von A> FT < RETURN > auf 
gerufen werden, 

PCW-Besitzer sollten vor dem Starten jedoch durch 
Eingabe von A >SET24x80 < RETURN > die Moni- 
toreinstellung auf 80 Zeichen und 24 Zeilen um 
schalten. 

Auf der Databox finden Sie selbstverständlich den 
Asscniblcr-Quelltexi sowie das fertig contpiUerte 
Programm. 



;*********•*•••**********•**•**••****•(»**••***•***•*** 

*********************** 

; * 

;* Programm: FT AST EN oder FT Version 1.1 fuer CP/M-Plus 
28/10/88 * 


* Funktion: Legt Text auf die Fun ktlonstasten 


;* Grundlage: Joyce-Sonderheft 1 (1987), S. 80ff., vgl. 

bes. EXPAND und RESET* 

; * 

* 

; * 

* 

*********************** 


esc = 1Bh ; Escape 
bdos = 0005h 


rstring 

= 10 ; 

BDOS-Funktion 10: 

Stringeingabe 

xbios = 
so t_k ey 

0FC5Ah 

= OOD?h 

; XBIOS-Fun k tion 

29 : 

Tastaturbelegung a 

ende rn 
set_exp 

= 0004h 

; XBIOS-Funktion 

28 : 

Erwe1terungstext b 


estimmen 

;-Bildschirm aufba 

uen--- 

mask : 

Id de.msktxt 

ca I1 pst ring 
Jp copycommon 

db ' Letzte Aenderung: 28/10/88' 
msktxt: db esc, ’E 1 ,esc,'H ‘ ,esc,'p 1 
db esc, 'Y' ,32,32, ' FT ASTEN V 1.1 ' 

db ' Funktionstastenbelegung (c) 1988 by 0. Osterloh ' 
db esc, ' q ' 

db esc , 1 Y' ,35,56, 'Funktionstaste waehlen: ’ 
db esc,'Y',37,56, Status waehlen:' 
db esc , ’Y’ ,39,56, 'Text eingeben:' 

db esc,'V,44,32,’- 


db 


db 

esc , 

'Y',45,33,esc,' 

r' , ' Funk11onstasten: 

,esc,'u' 

db 

esc , 

'Y',47,33,'1 

= 

f 1 / f 2 ‘ 


db 

esc, 

' Y ' ,48,33, ' 3 

= 

f 3/f 4' 


db 

esc, 

’Y',49,33,‘5 

= 

f5/f 6 ' 


db 

esc, 

'Y',50,33,'7 

= 

f 7/f8 ' 


db 

esc, 

' Y ' ,52.33, ' L 

= 

Spe(eher leeren' 


db 

esc, 

'Y',53,33,’Q 

= 

Programm beenden' 


db 

esc, 

'Y',45,56,esc, 

' r' ,'Status / belegte 

Erw,-Zehn 

esc,'u‘ 





db 

esc , 

•Y' ,47,56,’N 

= 

Normal / 81,83,85,87' 


db 

esc, 

'Y',48,56,’S 

= 

Shift / S2,84,86.88' 


db 

esc , 

'Y',49,56,'E 

= 

Extra / 9B,9C,9D,9E’ 


db 

esc, 

Y',50,56,'A 

= 

Alt / 8B,8C,80,8E' 


db 

esc, 

'Y',51,56,'X 

= 

Alt+Shift / 8F.90.92, 

, 9B ' 


db esc,'Y 
db esc,'Y 
db esc,'Y 
db esc,'Y 
db esc, 'Y 
db esc, ’Y 


db • - $' 


,45,90,esc,'r','Texteingabe:',esc,'u' 
',47,90,'' = Pfeil am Textende' 

',48,90,'setzt Ctrl-M (RETURN).' 

’ ,50,90. 'MaximaIe Textlaenge' 

,51,90,'betraegt 120 Zeichen.' 

',54,32,'- 


Id de,keypos ; Cursor positionieren 
call pstring 

call conin ; Funktionstaste waehlen 
cp 51h ; wenn Q-Taste 
jp z.exit ; dann Programm beenden 
cp 4Ch ; wenn L-Taste, dann String-Speieher in 
Jp z ,era_bankObuf ; Bank 0 leeren (d. h. Platz schaff 
en) 

flf2: cp 31h ; Adresse der Nummer der aewaehlten 
Jp nz,f3f4 ; Funktionstaste aus der Oeflnitions- 
ld hl , f key12 ; Tabelle holen 
Jp storel 
f3f4: cp 33h 
Jp nz,f 5 f 6 
Id hl,fkey34 
Jp storel 
f5f6: cp 35h 
jp nz,f7f8 
Id hl,fkey56 
Jp storel 
f7f8: cp 37h 

jp nz.defkeynum 
ld hl,fkey78 

storel: ld (keynum),hl ; Adresse der Tastennummer speie 
hern 


I- Status u. Erw.-Z 

eichen definieren - 

defstat: 

ld de.statpos ; Cursor positionieren 
cal1 p3tr1ng 

call conin ; Status waehlen 

ld h 1 , (keynum) ; gewaehlten Status in a laden und 
normal: cp ’N' ; Adresse des Erweiterungszeichens in 

Jp nz,shift ; der Definitions-Tabelle bestimmen 
ld a, 00000001 b 
jp store 2 
shift: ine hl 
cp 'S' 
jp nz,extra 
ld a,00000010b 
jp store2 
extra: inc hl 
cp 'E' 
jp nz , alt 
ld a, 00010000 b 

jp Store? 

alt: inc hl 
cp 'A' 

jp nz , sh_a11 

ld a, 00000100 b 

jp störe? 
sh_a1t: inc hl 
cp 'X' 

Jp nz,defstat 
ld a, 00001000 b 

store 2 : Inc hl 

ld (keystat),a | Status speichern 
ld a,(hl) 

ld (expcode).a ; Erweiterungszeichen speichern 

;- Erweiterungsstr 1 

ng definieren - 

defexp: 

ld de.exppos ; Cursor positionieren 
call pstring 

again: ld c.rstring ; Erweiterungsstring von Tastatur h 
ölen 

ld de.expbuf ; und In Puffer schreiben 
call bdos 


•---Tastennummer def 

inieren ----- 

de fkeynum: 


ld hl.expbufL ; Programmabsturz bei ungueltiger 
ld a,(h1) ; Stringeingabe (z. B. vorschnelles 
cp 00h ; Druecken der RETURN-Taste) verhindern 
Jp z,again ; wenn Puffer leer, dann erneute Eingabe 


Listing Drücke Fl 


Lisling Drücke Fl 
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_ Joyce Programmsammlungen _ 

Hochwertige Software zu Niedrigpreisen finden JOYCE-Besitzer im Rahmen einer 
Programmsammlung in der Angebotspalette des DMV Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen 
Anwendungsgebieten kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als kom¬ 
plettes Programmpaket mit 3“-Diskette und Bedienungsanleitung ausgeliefert. 




Joyce Programmsammlung VOL. VI 


Die universell einsetzbare 
Tabellenkalkulation zum Erstellen 
von Monatsbilanzen, T-Konten 
etc. für die PCW(JOYCE)-Familie 


Leistungsumfang: 

Auf der mitgelieferten Diskette finden Sie alle zur Erstellung 

eine Startdiskette nötigen Programme und Dateien. Die Be¬ 
dienungsanleitung enthält eine ausführliche Erklärung aller 

Funktionen. 

Funktionen: 

- kurze Einarbeitungszeit, da eine einfache und übersicht¬ 
liche Menüführung Fehleingaben abfängt oder gar nicht 
erst zuläßt 

- schnelles Arbeiten durch Belegung der Funktionstasten 
mit den wichtigsten Funktionen 

- auf Wunsch wird die Formel des aktuellen Feldes am un¬ 
teren Rand eingeblendet 

- besonders schnelle Bearbeitung von Eingaben und Be¬ 
rechnungen 


- arbeitet vollständig auf dem Memory-Laufwerk, was 
Schreib-/Leseoperationen wesentlich beschleunigt 

- bis zu 68 Zeichen pro Formel möglich 

- eigene Befehle zur Verkürzung der Formeln 

- drei verschiedene Schriftarten beim Drucken 

- standardmäßig 2574 frei belegbare Felder 

- akzeptiert sogar Exponentenschreibweise 

Joyce Programmsammlung Vol. VI TABKALK für alle JOYCE 
(PCW's) braucht den Vergleich mit vielen teureren Program¬ 
men nicht zu scheuen. 

Joyce Programmsammlung Vol. VI für alle JOYCE PCW’s 

Best.-Nr.:221 3“-Diskette 59,-DM* 

unverbindliche Preisempfehlung 



Das maßgeschneiderte 
DATENBANKSYSTEM für die 
PCW(JOYCE)-Familie 
(PCW 8256, PCW 8512, PCW 9512* *) 

Max. 27 Felder pro Datensatz, 50 Stellen 
pro Feld, 35.000 Sätze pro Datei, mini¬ 
maler Disketten-Speicherbedarf! 



Die wichtigsten Leistungen von Vol. V auf einen Blick: 

- Generiert Standard-Direktzugriffsdateien (BASIC), die auch in Eigenprogram¬ 
me eingebunden werden können. 

- Vollautomatisch generierte Maske zur Datenerfassung, Datenänderung und 
Daten löschung. 

- Reservierung des nötigen Speicherplatzes auf der Diskette, mit automatischer 
Erweiterung bei Erreichen der Reservierungsgrenze. 

- Gelöschte Datensätze werden vorrangig neubelegt, bevor weitere Sätze ver¬ 
braucht werden. 

- Auf Wunsch Datentransfer aus vorhandenen in neuangelegte Dateien. 

- Automatische Eintragung neuer Dateien in das Disketten-Hauptmenü 

- Alle Programme werden auf der RAM-Floppy gehalten. 

- Listenerstellung (Drucker oder Bildschirm) mit automatischer Spal¬ 
tenformatierung. 

- Daten können selektiert (ausgewählt, ausgeschlossen) werden. 

- Auf Wunsch Summen numerischer Spalten. 

- Freie Wahl der Sortierung; Mehrfachsortierkriterien. 


- Ohne Lernaufwand SOFORT voll anwendbar, keine Befehlswörter. 

- Nach 1-2 Minuten können Sie bereits über eine komfortable Maske Daten er¬ 
fassen. 

- Druckmasken für die beliebig sortierte Datenauflistung am Bildschirm oder am 
Drucker brauchen Sie nicht erst mühselig zu programmieren, sie werden vol- 
lautomatisch für beliebige Datenfelder und Spaltenfolgen generiert. 

- Bei mehrseitigen Auflistungen am Bildschirm Direktsprung zu jeder beliebigen 
Seite. 

- Einmal gewählte Druckparameter werden auf Wunsch gespeichert, die ent¬ 
sprechenden Listen können jederzeit abgerufen werden. 

Sofort Ergebnisse statt (frustrierender) Erlebnisse! 

VOL. V für Joyce/PCW 8256/8512/9512** mit ausführlicher 

Bedienungsanleitung 

Best .-Nr.: 220 3“-Diskette 99,— DM* 

unverbindliche Preisempfehlunq 

** PCW 9512 auf Anfrage 


* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 

— DMV-verlag • Postfach 250 - 3440 Eschwege _ 
























BildEditor 

Funktion: Grafikprogramm zum Erstellen von hochauflösenden Grafiken, 
welche in eigene Programme eingebunden werden können sowie deren 
Ausgabe auf dem JOYCE-Drucke'r 

Leistungsumfang: Der mitgelieferten Diskette können sie alle zum Arbei¬ 
ten mil dem Programm benötigten Dateien entnehmen. Für alle Turbo- 
Pascal-Programmierer wird auch der Programmtext mitgelieferl. 

Funktionen: Durch das Unterscheiden zwischen Grob- und Feinbearbei¬ 
tung ist es möglich, brilliante Grafiken auf das Pixel genau zu zeichnen. 
Lösch- sowie Invertierfunktion sind in allen Bearbeitungsmodi aufrufbar. 
Auch Texte können bei der Grobbearbeitung in das Bild gebracht werden 
Im Dateimenü steht neben einer Lade- und Speicheroption noch eine Funk¬ 
tion zur Verfügung, welche zwei Bilder miteinander mischt. Neben dem Ver¬ 
satz des linken Randes vor dem Drucken können noch vier verschiedene 
Druckformate angewählt werden. 

VOL. IV für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.:219 


3“-Diskette 


59,- DM* 

unverbindliche! Proisempfehlung 


1 Feld-Tab 

r p Ein BASIC-Programm zum millimetergenauen Ausfüllen von Tabellen. Vor¬ 
drucken und Formularen, Feld-Tab ist menügesteuert und bietet die Anwahl 
der einzelnen Funktionen, wie unter LocoScript gewohnt Geben Sie Sei¬ 
tenlange, Zeilenabstand und Tabulatoren in Millimetern ein, bestimmen Sie 
Schriftweile, Schriftart und Text. Text kann mit LocoScript erstellt werden 
und nach Umwandlung in eine ASCII-Datei in Feld-Tab eingelesen werden. 
Weitere ASCII-Editoren können ebenso verwendet werden wie der komfor¬ 
table programminterne Seiteneditor. Ein unentbehrliches Werkzeug! 

2. Gsxplot 

Ein Grafikpaket für Statistiken, Geschäftspräsentationen und viele andere 
grafische Anwendungen! Über ein Menü sind folgende Funktionen wählbar: 

Balkendiagramme • Kurvendiagramme • Strichgrafik 
■ Punktediagramme - Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wich¬ 
tigsten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm 
als auch auf dem Drucker dargestellt werden. Gsxplot braucht den Ver¬ 
gleich mit wesentlich teurerer Software nicht zu scheuen! 

VOL.III für Joyce/PCW 8256/8512 zwei Disketten 
mit ausführlicher Bedienungsanleitung 


Best.-Nr.: 217 


3“-Diskette 


69,- DM* 

unverbindliche Preisemplehlung 


SUPERdat 

Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien, 
Leistungsumfang: MASKE ist das Vorprogramm, mit dem Sie die Feld¬ 
namen und -längen sowie die Länge des Suchbegriffs voreinstellen 
können. 

SUPERdat ist das Hauptprogramm, welches die Daten der gewünschten 
Datei verwaltet Neben der Eingabe von Daten in die Maske sind mehrere 
Sucharten, so z.B. auch Jokersuchen möglich. Jede Datei kann max. acht 
Felder enthalten, wovon jedes max. <10 Zeichen enthalten darl. Die Gesamt¬ 
länge eines Datensatzes darf 255 Zeichen betragen. 

SUPERtex Dieses Programm stellt eine Rundschreib- (Mailmerge-)funktion 
für SUPERdal zur Verfügung. In einen in Laufwerk M befindlichen ASCII- 
Text (z.B. mit RPED erstellt) werden automatisch vom Anwender vorausge¬ 
wählte beliebige Einträge aus beliebigen SUPERdat-Daleien an beliebiger 
Stelle eingefügt. Weiterhin können 30 beliebige Datensätze in eine für Lo¬ 
coScript lesbare Datei umgewandelt werden 

SUPERcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den 
Grundrechenarten auch Winkelfunktionen, quadratische und Prozentfunk¬ 
tionen. Eine Klammerebene und Memory-Funktionen vervollständigen das 
Leistungsangebot dieses Programms. 

VOL.II für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.: 216 


3“-Diskette 


49, - DM* 

unverbindliche Preisemplehlung 


1. Der Character-Designer 

Funktion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/ 
8512 und deren Darstellung am Bildschirm! Ausdruck von ASCII-Files in 
diesem Zeichensatz unter CP/M Plus. 

Leistungsumfang: CD.COM ist der Character-Designer, der Editie- 
rung oder Neuerstellung von Zeichensälzen und deren Speicherung er¬ 
laubt, CD-PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker 
oder anderen Druckern in dem gewünschten Zeichensatz aus 
CRAZY, ORIGINAL, LOCCHAR und SCRIPT sind mitgelieferte Zeichensät¬ 
ze. SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter. 
z.B. die der seriellen Schnittstelle, der Tastaturgeschwindigkeit und der 
Floppy-Steprate. 

2. MGX 

Funktion: Grafische Darstellung von mathemalischen Funktionen und be¬ 
liebigen Meßreihen auf Bildschirm oder im Großformat auf dem Drucker. 
Leistungsumfang: Neben den arithmetischen Grundfunktionen sind auch 
weitere Funktionen darstellbar, die z.B. unter Mallard-Baslc nicht zur Verfü¬ 
gung gestellt werden. Es können mehrere Funktionen und Meßreihen (die¬ 
se wiederum mit mehreren Meßwerten gleichzeitig) dargestellt werden 

VOL.I für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 

Best.-Nr: 215 3“-Diskette 59,-DM* 

u n ve ro iria I icho Pro is o m pfeli I u n c| 


IOYC! 


D M V - Angebot 

Praktische Textverarbeitung mit Joyce 

Ein Buch/Disketten-Paket. Der Autor Jürgen Sie¬ 
ben zeigt in diesem Buch Möglichkeiten der Text¬ 
verarbeitung auf, die Sie von LocoScript nicht er¬ 
wartet hätten... Von der Pike auf werden Sie an 
den Umgang mil Schablonen und Standardlayout 
herangeführt. Einige Abstecher führen Sie an¬ 
hand anschaulicher Beispiele an Textverarbeitung 
und CP/M (ED/Wordstar) heran. 

Aus dem Inhalt: 

- LocoScript Spezial • Softwarelraining für Fort¬ 
geschrittene 

- Fehler im System: Wie rette ich meinen Text? 

- Joyce-Tasteninstallationsdatei für das Pro¬ 
gramm Wordstar 

- Aleatorische Poetik: Der Computer dichtet _________________ 

Auf Diskette: Über 50 Dateien mit Schablonen, Briefen, Postkarten Serien- 
Rundschreiben, Formularen, Etiketten, Druckbeispielen, Schriften. 
Bildschirm-Installationen uvm. 

Leinen-Hardcover, 207 Seiten. 

3“-Diskette Best -Nr. 401 DM 89,- 


Joyce 

Bücher-Kiste 


Aus dem Data Becker-Angebot 

Das Große LOGO-Buch zu CPC und Joyce 

LOGO kann mehr, als Sie denken. LOGO isl heute eine anerkannte Sprache 
bei vielen ehrgeizigen Programmprojekten. Das reicht bis hin zur Erstellung 
von Kl-Programmen Hier das Buch für CPC- und Joyce-Besitzer, die viele Vor 
teile dieser Sprache kennenlernen wollen. Um nur einige Stichworte zu nen¬ 
nen: Listenverarbeitung. Prozeduren, Rekursionen, Sortierroutinen, Masken¬ 
generator. Nutzen Sie diese Sprache für Ihre eigenen, ehrgeizigen Proqramm- 
ideen. 

410 Seiten Besl.-Nr. 417 DM39,-* 

Das große Joyce-Buch 

Von der Textverarbeitung zum Programmieren - das bietet Ihnen das große 
Joyce-Buch. Hier werden alle Themen abgedeckt, die lür Joyce-Nutzer inter¬ 
essant sind. Spezielle Anwendungen mit LogoScript, Personalisieren des Sy¬ 
stems mit CP/M Multiplan auf dem Joyce, Uhr in BASIC, Grafikprogrammie¬ 
rung in LOGO und viele andere interessante Themen warten auf Sie im gro¬ 
ßen Joyce-Buch. 

418 Seiten Best.-Nr. 418 DM59,-* 

Programmierwissen pur im Westentaschenformat 
Führer zum Joyce 
Best.-Nr. 450 


Führer zum CP/M 

Best.-Nr. 452 


DM 29,80* 
DM 19,80* 


Joyce für Einsteiger 

Wer einen Joyce gekauft hat, der möchte schnell und effektiv mit diesem 
Rechner umgehen. Joyce für Einsteiger wird dieser Anforderung voll gerecht 
Von Kleinigkeiten, wie dem Anschluß des Gerätes oder dem Kopieren der Sy¬ 
stemdiskette bis hin zur optimalen Arbeit mit LocoScript finden Sie alles Not¬ 
wendige. Dazu eine kleine Einführung in BASIC und LOGO und natürlich in 
das Betriebssystem von CP/M-Plus. 

248 Seiten Best.-Nr. 453 DM 29, - * 

Aus dem Franzis Verlag-Angebot 

Den Joyce programmieren 

Der Autor hat es sich zur Aufgabe gemacht, den Joyce als vollständigen Com¬ 
puter zu beschreiben. Er vermittelt dem Joyce-Besitzer eine Menge interes¬ 
santer und nicht alltäglicher Kenntnisse. Außerdem ist das Buch angefüllt mit 
Programmlistings, die für den fertigen Einsatz konzipiert sind Aus diesen Li- 
stmgs lassen sich zahlreiche ausgefeilte Programmfricks entnehmen Der Auf¬ 
bau und die Bedienung des CP/M-Betriebssystems werden ebenfalls für den 
Joyce-Anwender, der sich nicht mit einlacher Textverarbeitung begnügen will, 
behandelt. Insgesamt stellt das Buch eine interessante Programmierliteratur 
für den technisch interessierten Joyce-Eigner dar 

ca. 160 Seiten Best.-Nr. 425 DM 38, - * 

Aus dem Hüthig-Verlag-Angebot 

Joyce - Das Praxisbuch zur Textverarbeitung 

Dieses Buch füllt einerseits die Lücken, die die zum Joyce mitgelieferten 
Handbücher noch offen gelassen haben, und gibt andererseits viele Tips zur 
praktischen Arbeit mit LOCO-SCRIPT. 

Sie erfahren, wie man Briefköpfe erstellt. Formulare ausdruckt, eine Phrasen¬ 
datei anlegt, mil dem Drucker kleine Flrmen-Logos erstellt oder die verschie¬ 
denen LOCO-SCRIPT-Optionen effektiver nutzt. So kann das offensichtlich 
fehlende Mail-Merge doch mit Hilfe eines kleinen BASJC-Programms nach¬ 
empfunden werden. Zahlreiche Hardcopies und eine Übersicht sämtlicher 
LOCO-SCRIPT-Menüs mit den zugehörigen Untermenüs helfen sowohl Neu¬ 
lingen als auch »allen Hasen- gleichermaßen. 

125 Seiten. Best.-Nr. 419 ~ DM35,-* 

* Unabhängig von der Anzahl der bestellten Bücher berechnen wir tür das Inland 3.- DM 
bzw. tür das Ausland 5,- DM Porto und Verpackung. Bitte benutzen Sie die Bestcllkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 





















I JOYCE 


Id c,a ; letztes Zeichen im Puffer auf 
add hl.bc ; Pfeil (*) pruefen und ggf, durch 
ld a,(hl) ; Control-M ersetzen 
cp 5Eh 

j p nz.copystrlng 
ld a.ODh 
ld (hl),a 

;- Erw,-String In 9 

ank 0 uebertragen - 

; Vgl. Joyce-Sonderheft 1, S. 81ff. (besonders Programm 
EXPANO von M. Anton) 

copystring; ; Erweiterungsstring nach COMMON kopieren; 
ld aic | Stringlaenge steht noch in c bzw. bc 
ld de,OCOOOh ; Ziel = COMMON 

ld hl.expbufB ; Beginn des Strings im Puffer 
1 di r 

; Erweiterungsstring laden: 

1d hl,expcode 

ld 0,(hl) ; Erwetterungszeichen 

ld c,a ; Stringlaenge 

ld hl.OCOOOh ; Stringbeginn = COMMON 
cal1 xbios 
dw set_exp 

jp nc,error ; evtl. Uebertragungsfeh 1 or melden 

call setkeyQF ; UP ErwZchn in Tast.tabelle loeschen 
; Belegung aendern (expcode steht In b) 

1d hl,(keynum) 

ld c,(hl) ; Tastennummer 

1d hl,keystat 

ld d.(hl) ; Status 

call xbios 

dw set_key 


Programmende - 


jp defkeynum . 
exl t: 

1d de . exlttxt 
cal1 pstrIng 
jp 0000h 


naechste Funktionstaste belegen 


Bildschirm aufraeumen 


conin: 

ld c.OXh 
call bdos 
ret 


UP Zeleheneingab 


UP Stringausgabe 


pstring; 

id c.ogn 
call bdos 
ret 

;- UP Uebertragungs 

fehler melden -- 

error: 

ld de.errtxt ; Fehlermeldung bei Ueberlauf d. String¬ 
call pstring ; Speichers ln Bank 0 (= no carry) 
call conin ; weiter mit beliebiger Taste 
jp defkeynum 


errtxt; db esc,'V',A3,32.07h,07h.esc,'p' 
db ’ Fehler: SpeI cherueberI auf! Maximum; 


120 Ze1chen . 


db ' Weiter mit beliebiger Taste ' ,esc. ’q$’ 

;-UP String-Speich 

er in Bank 0 leeren - 

era_bankObuf: 

; Alle Erweiterungsstrings loeschen: 
ld b,80h ; erstes Erweiterungsze1chen 
ld c.OOh ; Laenge der Erw.-Strings gleich null 
eranxt: push bc 
call xbios 
dw set_exp 

pop bc 

Inc b ; naechstes Erweiterungsreichen 

jp c,eranxt ; Schleifenende bei ungueltlgcm Zeichen 

; d. h. no carry bei 9Fh 

; Tastaturbe1egungstab. ln Bank 0 aendern: 

ld hl.tabstart ; (vgl. Llsting: RESET.MAC, In: Joyce¬ 
push hl ; Sonderheft 1, S. 93) 
ld b,24 ; Anzahl der Sch 1 eifendurchlaeufe 
nxtkey: pop hl 
I d a , b 

ld (keystat),a ; keystat Zwischenspeich, f, Zaohlcr 


Id c, (hl ) 

Inc hl 
Id b,(hl) 

Inc hl 
ld d.(hl) 

Inc hl 
push hl 
call xbios 
dw set_key 
ld a,(keystat) 


Listing Drücke Fl 


T astennumme r 


Zeichenwert 



ld b, a 
djnz nxtkey 

pop hl ; Stapel restaurieren 

ld de.eratxt ; leeren Str1ng-Spe1 Cher ln Bank 0 
call pstring ; melden 

call conin ; weiter mit beliebiger Taste 
jp defkeynum ; Ruecksprung ins Hauptprogramm 


eratxt: db esc, - V',43,32,07h,esc. p' 

db ’ Speicher geleert, Platz fuer 120 Zeichen. ' 
db ' Weiter mit beliebiger Taste. ',esc,'q$' 

tabstart: | TastaturbeIegungstaoe11e fuer UP 
db 00.1lh,03h,16,OBh,OCh 

db 01,12h,03h,20,1Dh,03h ; Format: Tastenrummer, Zeia 
hen, Status 

db 02,lAh,03h,23,16h,03h 
db 03,17h,03h.66,03h,03h 
db 05,06h,03h,72,7Fh,03h 
db 06,06h,03h,72,18h,OCh 
db 10,15h,03h,73,13h,03h 
db 11.17h,03h,75,08h,03h 

db 13,02h,03h,76,ICh,03h ; ZE1 LE/EZ-Taste geaendert. 
erzeugt *B 

db 14,lFh,03h,77,10h,03h 
db 15,01h,03h,79,lEh,03h 
db 16,07h,03h,79,05h,OCh 


;-UP kopiert UP se 

tkey9F in Common - 

copycommon: 

; Programmstueck in COMMON kopieren 

ld bc,copyE-copyB ; Laenge des Programmstuecks 
Id de.OClOOh ; Ziel = COMMON-HOOh 
Id hl,copyB ; Beginn des Programmstuecks 
I d 1 r 

jp defkeynum ; Ruecksprung ins hauptprogramm 

;-UP Tasten desakt 

1VIeren --- 

setkey9F: ; Desaktivlert (= 9F) alle Tasten, die 

| mit dem gewaehlten ErwZchn belegt sind 
ld a,b ; ErwZchn steht In b 
ex af.af' ; ErwZchn Zwischenspeichern 
ld bc,405 ; Zaehler fuer Suchbefehl CPIR 
ld a,80h ; Block 0 In Bank 0 anwsehlen 
call OClOOh ; nach COMMON+lOOh 
ret ; Ruecksprung Ins Hauptprogramm 
copyB: di ; Interrupts sperren 

out (Oflh),a ; Block 0 bei 4000h TPA-Bank einblenden 
ex af,af‘ ; ErwZchn holen 

ld hl ,5780h ; Beginn der Tastaturbe1egungstabe11e 
search: epir ; Erwzchn suchen 

jr nz.bankl ; wenn Suche beendet, dann nach bankl 
dec hl ; Adresse des gefundenen ErwZchns 
ld (hl),9Fh ; ErwZchn durch 9F ersetzen 
inc hl ; naechstes Zeichen 
jr search ; weiter suchen --> search 
bankl: ld b.a ; ErwZchn zurueck In b 
ld a,85h ; TPA-Bank restaurieren 
out (Oflh),a ; TPA-Block einblenden 
ei ; Interrupts freigeben 
ret 

copyE: 


Zwischenspeieher 


keynum: ds 2 ; Adresse der Tastennummer 

keystat: ds 1 ; Status 

expcode: ds 1 ; Erweiterungszeichen 

; Puffer fuer Erwe1terungsstr1ng: 

expbuf: db expbufE-expbufB ; Maximale Stringlaenge 
expbufL: ds 1 ; Aktuelle Stringlaenge 

expbufB: ds 120 ; Stringbeginn, hier evtl. max. Laenge 
expbufE: ; Pufferende aendern 


; Definitions-Tabelle: 

fkeyl2: db 02,8 1 h , 82h , 9Bh , 8Bh , 8Fh ; Format: Tasten.numme 
r, benutzte Erwei- 

f key 3 4 : db 00,83h, 84h , geh , 8Ch , 90h ; te rungsze i cheri In d 
er Reihenfolge 

fkey56: db 73,85h,86h,9Dh,8Dh,92h ; Normal. Shift, Extr 
a, Alt und 

fkey78: db 77,87h,88h,9Eh,8Eh,98h ; Alt+Shift 

; Cursorpositionen etc.: 
keypos: db esc, 'Y• ,4 1 ,32,esc. 1 ' 

db esc, - V ' .42,32,esc, 'I ' ; 3 Zeilen loeschen 

db esc,“V*,43,32,esc.'I' 

db esc , 'V ' ,37,83,esc, 'N 1 ; letzte Statuswahl loeschen 

db esc,'V 1 ,35,83, '?' ,08h, '$' ; Position Funkt Ionstast 

e waehlen 

statpos: db esc,'Y',37,B3,'?',OBh,'$' ; Position Status 
waehlen 

exppos: db esc,'V',41,32, 1 ?',ODh,'$'*| Position Textein 
gäbe 


db esc 


E'iesc,'H$ 
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Hellseher oder Computer? 

Ein Algorithmus, 

der zum Überlegen anregt 

Münzenraten ist ein Spiel, das Sie verblüffen wird. Der Joyce besitzt 
anscheinend hellseherische Fähigkeiten. 


Sie benötigen für dieses Münzenspiel ein 
5- und 10-Pfennigstück. Danach müssen 
Sie in jede Hand je eine nehmen, den 
Wert der Münze in der rechten Hand mit 
einer geraden Zahl multiplizieren und 
den Wert der Münze in der linken Hand 
mit einer ungeraden. Die beiden Produk¬ 
te müssen addiert und im Programm ein¬ 
gegeben werden. Die Eingabe erfolgt 
über die Tastatur. Fehleingaben werden 


von der Input-Routine abgefangen. Kor¬ 
rigieren ist durch <-DEL möglich. Das 
Abschließen der Eingabe erfolgt durch 
ENTER oder RETURN. 

Jetzt kommt der Computer zum Zug und 
teilt Ihnen das Ergebnis mit. Haben Sie 
alles richtig gemacht, muß das Ergebnis 
korrekt sein. Das Listing enthält zusätz¬ 
lich einige Out-BefehJe, die ich erläutern 
möchte. 


- ou( 248,8 / out 248,7 
(Screen aus f. ein) 

- out 248,11 /out 248,12 
(Dauerpieps ein /. aus) 

- For 1=1 to 255:out 246,I:Next l 
(Bildschirm nach oben Scrollen) 

Das Programm erkärt sich auch noch ein¬ 
mal selbst. Hier noch ein paar Tips zur 
Verwendung: Sie können das Programm 
Ihren Bekannten vorzeigen - diese wer¬ 
den staunen und selbst Spaß an diesem 
Programm bekommen. 

Variablenliste: 

maxien = maximale Länge der Eingabe 
erlaubt$ = erlaubte Zeichen (0-9) 
b$ = derzeitig eingegebenes Zeichen 
text$ = Ergebnis (Produkt) 
erg = Ergebnis (Produkt) 
l$ = Ausgabetext 

(Christian Schropp/rs) 


LISTING >MÜNZE <. REMARK 


> ' < . 


< 19 > 

< 2 4 > 

< 55 > 

< 1 8 > 

< 23 > 

< 6 > 

< 25 > 

< 8 > 

< 46 > 

< 29 > 

< 90 > 

< 79 > 

< 26 > 
< 2 6 > 

< 48 > 

< 30 > 

< 77> 

< 8 1 > 
< 66 > 

< 78 > 

< 61 > 

< 95 > 

< 94 > 

< 64 > 

< 84 > 
<41 > 

< 11 > 

< 8 3 > 

< 1 9 > 

< 43 > 

< 6 7 > 

< 88 > 

< 5 1 > 

< 8 7 > 

< 65 > 

< 18 > 

< 73 > 

< 9 > 

< 73 > 

< 85 > 
<36 > 


!>>>>>>>>>>>>>>><<<<<<<<<<<<<<< 

[ >>> . Münzen raten. <<< 

■>>>.. Christian Schropp... <<< 

>>>. (c) 1988. <<< 

’>>>>>>>>>>>>>>><<<<<<<<<<<<<<< 

’>>>>> In 1t <<<<< 


10 
20 
30 
40 
50 
60 
70 
80 

!x+ 3 n FNl0cate$(x,y)=CHR$(27)+"Y"+CHR$(y+32)+CHR$ 

100 c.an$=CHR$(27) + "e":c.aus$=CHR$(27) + "f" 

110 cls$=CHR$(27)+“E"+CHR$(27)+"H" 

120 1nv$=CHR$(27)+"p" 

130 1nvaus$=CHR$(27)+"q“ 

140 ' 

150 >>>>> Bildschirmaufbau <<<<< 

160 ' 

170 OPTION RUN 
180 PRINT c.aus$ 

190 PRINT CHR$( 2 7 ) + " 0 " 

200 PRINT cls$; 

210 OUT 248,8 

220 PRINT CHR$(134)+STRING$(88,154)+CHR$(140) 

230 FOR 1=0 TO 2 7:PRINT FN1ocate$(0,2+1 ) ;CHR$(133 ) 

:PRINT FNlocate$(92,2+1);CHR$(133):NEXT 

240 PRINT FN1ocate$(0,29)+CHR$(131)+STRING$(88,154 

)+CHR$(137) 

250 PRINT FN1ocate$( 31 ,,3 ) + CHR$ ( 150)+STRING$ ( 26 138 
) +CHR$(156) 

260 PRINT FNlocate$(31,4)+ CHR$(133)+Inv$+". M 

ünzen-Raten. “+1nvaus$+CHR$(133) 

270 PRINT FNlocate$(31,5)+CHR$(147)+CHR$(156)+FNlo 

cate$(58,5)+CHR$(153)+FNlocate$(57,5)+CHR$(150) 

280 FOR 1=1 TO 3 :PRINT FN 1ocate$( 32 ,5+ 1 );CHR$( 133 ) 
+FNlocate$(57,5+1)+CHR$( 133) :NEXT 

290 PRINT FN1ocate$(2,9)+CHR$(150)+STRING$(29,138) 
+CHR$(153) 

300 PRINT FNlocate$(57,9)+CHR$<147)+STRING$(29,138 
)+CHR$(156) 

310 FOR 1 = 1 TO 18:PRINT FN1ocate$(2,9 +1 )+CHR$(133 ) 
+SPACE$(86)+FNlocate$(87,9+1 )+CHR$(133):NEXT 
320 PRINT FNl0cate$(2,27)+CHR$(147)+STRING$(84,138 
)+CHR$(153) 

330 PRINT FN1ocate$(25,28)+ M Münzen-Raten (c) by Ch 
rlstlan Schropp 198B" 

340 PRINT FNlocate$(28,10)+"Für dieses Spiel benöt 
igst Du ein“ 

350 PRINT FNlocate$(35,12) + "- 10 Pfennig-Stück 

360 PRINT FN1ocate$(35,13) + ". und ein 

370 PRINT FNlocate$(35,14)+"-. 5 Pfenn1g-Stück 
380 PRINT FNlocate$(26,17) +"Ni mm die eine Münze ln 
die rechte, die 

390 PRINT FNlocate$(26,18)+"andere Münze in die 11 
nke Hand!“ 

400 PRINT FN1ocate$(26,20) +"Multipl1 ziere nun den 
Wert der Münze 

410 PRINT FNlocate$(26.21)+"1n der rechten Hand mi 
t Irgendeiner ge-” 
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<24> 420 PRINT FN1ocate$(26,22)+"raden Zahl und den Wer 
t der Münze ln 

< 2 > 430 PRINT FNlocate$(26,23) + "der linken Hand mit ei 

ner ungeraden" 

<66> 440 PRINT FN1ocate$(26,24) + "zah1 und addiere die P 
rodukte !" 

< 58 > 450 OUT 248,7 

< 12 > “J 60 " HILE INKEY$=" " :W£ND: PRINT CHR$ ( 2 7 ) + " X "+ CHR$ ( 1 

0+32)+CHR$(25+32)+CHR$(15+32)+CHR$(43+31):PRINT cl 

< 8 > 470 PRINT CHR$( 2 7 ) + "X " + “ . >y":PRINT FN1ocate$(24,2 

Nenne mir das Ergebnis Deiner Rechnung!" 

<917 480 PRINT:PRINT FN1ocate$(24,4)+">> "• 

< 39 > 490 ' ' 

<75> 500 '>>>>> Eingaberoutine <<<<< 

< 24 > 510 1 

<50> 520 maxlen=8:erlaubt$="0123456789":GOSUB 550:'Init 
der Eingaberoutine 
<28 > 530 ' 

<10> 540 GOTO 650 

text$ = " " : b$= “ " : PRINT CHR$ ( 128 ) ; CHR$ ( 8 ) ; 

<75> 560 WHILE b$OCHR$(13) 

< 2 > 570 b$="“:WHILE b$="":b$ = INKEY$:WEND:b$ = UPPER$<b$) 

:IF b$=CHR$(13) THEN 600 

<50> AND E EN(text$) THEN PRINT CHR$ 

(16),CHR$(8);CHR$(128);CHR$(8);:text$=LEFT$(text$, 
LEN(text$)- 1 ):GOTO 600 

<67> 590 IF INSTR(erlaubt$,b$ ) AND LEN(text$)<max1en TH 

OUT 24R T 1 ? $ ÄMT R !i« 2 ^ i S HR$(8)::teXt$=text$ + b * ELSE 
OUT 248,11:OUT 248,12:OUT 248,ll:OUT 248 12 

<84> 600 WEND 

<74> 610 RETURN 

< 2 7 > 620 ' 

<37> 630 '>>>>> Verarbeitung <<<<< 

< 2 7 > 640 : 

< 34 > 650 erg = VAL(text$) 

<22> 660 LET t$= "5-Pfenn1g-Stück" 

<44> ück“ IP INT(erg/2)=er S /2 ™EN LET t$="10-Pfennig-St 

< 35 > 680 : 

< 80 > 690 ’>>>>> Ausgabe <<<<< 

< 20 > 700 : 

<18> 710 PRINT FNlocate$(24,4) + "Lass mich nachdenken . . . 

< 45 > 720 FOR z=l TO 300.NEXT 

< 44 > 730 PRINT 

< 55 > ? 40 PRINT FNlocate$(24,6) + "Du hast das ";1nv$ + T$+1 

nvaus$; ln der" 

< 71> 750 PRINT 

<34> 770 PRINT FN1ocate *<24,B)+"lInken Hand!“ 

<14 > 780 '>>>>> Schluß <<<<< 

< 38 > 790 : 

<61> 800 WHILE INKEY$= H “;WEND 

<78> 8 NEXT° R 1=1 T ° 255:OUT 246 .*:°UT 248,11:OUT 248,12 
<75> 820 FOR 1=1 TO 200:NEXT 

<92> FNlocate$(0,0) : CHR$(27)+"X“+CHR$(0+32)+C 

, x. ^ ( ° +32)+CHR *( 32+ 3 2 > + CHR$(92 + 31):PRlNT cls$;c.an$ 

< 4> 840 OPTION STOP 

< 40 > 850 END 
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I JOYCE 


Hilfsseiten 
unter Mallard-Basic 

Einblenden 

von vollständigen Hilfsseiten 
leicbtgemacht 


Zur Problematik der Info-Fenster sind ja schon einige Beiträge erschienen. 
Das hier vorgestellte Programm stellt zwar einige Ansprüche an den Spei¬ 
cherplatz (RAM-Disk), im Punkt Geschwindigkeit ist es jedoch unüber¬ 
troffen. 



Will man sich eine Hilfsseite über den 
normalen Type-Befehl auf den Bild¬ 
schirm holen (siehe Artikel Info-Fen¬ 
ster PC INT. 8/88) so fallen zwei gra¬ 
vierende Nachteile auf: 

1. Die nicht gerade berauschende Ge¬ 
schwindigkeit der Bildschirmaus¬ 
gabe (4s) und 

2. die verlorene Bildschirmseite, die 
durch den Type-Befehl überschrie¬ 
ben wurde. 

Neue Wege 

SCREEN.BAS geht einen ganz ande¬ 
ren Weg. Der erste Teil des Maschi¬ 
nenprogramms (Aufruf mit: CALL 
speichern) kopiert den aktuellen Bild¬ 
schirmspeicher und das Roller-RAM 
an das Ende der RAM-Disk. Diese 
Bildschirmseite kann dann später je¬ 
derzeit wiederabgerufen werden. Dies 
erledigt der zweite Teil (Aufruf mit: 
call laden). 

Der aktuelle Bildschirmspeicher wird 
wieder kopiert und der vorher abge¬ 
speicherte geladen. Durch den schnel¬ 
len Z80-LDIR Befehl geht das ganze in 
weniger als einer Sekunde vonstatten! 


Das Programm wartet nun auf einen 
Tastendruck, woraufhin der alte Bild¬ 
schirm wiederhergestellt wird. 
SCREEN1.BAS ist ein kleines Demo¬ 
programm, während SCREEN2.BAS 
eine Hilfsseite abspeichert und die 
Funktionstaste Fl so belegt, daß die 
Hilfsseite jederzeit aufgerufen werden 
kann. In der vorliegenden Version läuft 
das Programm auf dem PCW 8256 so¬ 
wie dem PCW 8512. Besitzer des 8512 
sollten jedoch die Blöcke 9C bis 9F 
(statt 8C bis 8F) verwenden. Die Ände¬ 
rungen müssen in den Datazeilen 
700,780,940,1020,1110,1190,1380, 
1460 in SCREEN2.BAS vorgenom¬ 
men werden. 

Zum Abtippen 

Nachdem Listing 1 und Listing 2 einge¬ 
geben und abgespeichert wurden, müs¬ 
sen die Zeilen 10 bis 430 in das 
Listing 2 eingebunden werden. Dies 
funktioniert folgendermaßen: 

1. Einladen 

Laden Sie Listing 1 mit 
LOAD“SCREENl.BAS“ <RETURN> 
ein. 


2. Löschen 

Durch Eingabe von DELETE 431 — 

< RETURN > werden die Zeilen ab 
431 gelöscht, sie haben jetzt also nur 
noch die Zeilen 10 bis 430 im Speicher. 

3. Mischen 

Geben Sie MERGE“SCREEN2.BAS“ 

< RETURN > ein. Die Zeilen 10 bis 
430 sowie das Listing zwei sind jetzt 
zusammengemischt. Das Listing 2 ist 
jetzt lauffähig. 

4. Speichern 

Bevor Sie jetzt das Programm starten, 
sollten Sie es zuerst mit 
SAVE“SCREEN2.BAS“ <RETURN> 
abspeichern, um eventuell das fertige 
Programm nun auch auf Diskette vor¬ 
liegen zu haben. 

(Ralf Thelen/rs) 


Diese Programme sind in Basic ge¬ 
schrieben. Nach dem Eingeben sollten 
sie zuerst mit SAVE“SCREEN1.BAS" 
< RETURN > bzw. mit 
SA VE “ SCREEN2. BAS" < RETURN> 
abgespeichert werden. 


LISTING >SCREEN1 <, REMARK = >'<. 

< 6 7 > 10 GOTO 330 

<67> ZO PRINT"Drucker/Schlrm-Steuerzeichen :. . 
.... (27)= Iprlnt chr$(27) bzw.. print c 
h r $ ( 2 7 ) 

<91> 30 PRINT"- 


<15> 40 PRI NT " LI n ke r Rand. (27)"1"(0-78) 

. Null mit Schrägstrich... (27 

) + " X " 
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< 29 > 

50 

PRINT' 

Rechter 

Rand. 

. (27) 

"Q" 

(4- 

81) 





Ohne Schrägstr 

1 ch 


(27 


) + ' 

o 







< 58 > 

60 

PRINT 







< 60 > 

70 

PRINT' 

Seitene 

nde frei., 

. (27) 

"N" 

(1- 

-127 

<85 > 

80 

PRINT" 

wieder 

au fheben. , 

. (27) 

"O" 












< 3 > 

90 

PRINT” 










... (27)+' 

' c " + ( 0 

) + ( 

27) 

+ "b 


" + < 

63) 
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<80> 100 PRINT"Se1tenvorschub... ( 12 ). 

. dunkel. (27 ) + “c" + ( 63) + (27 ) + 

" b" + (o ) 

<90> 110 PRINT''Ze1 lenvorschub. . . (10) 

<24> 120 PRINT". 

. Statuszeile an. 

2 7 ) + " 0 " 

<15> 130 PRINT"Kompakt an. (27)'SI'(15 

. Statuszelle aus. 

27)+-1’ 

< 79 > 140 PRINT'.'wleder aus. (27) , DC , (10 

< 6 > 150 PRINT ". 

. Seite löschen. 

2 7 ) + " J " 

< 76 > 160 PRINT"Elite an. (27)‘M' 

< 31> 170 PRINT" wiede r aus. (27)'P‘. 

• • • .. Zelle 1 öschen. ( 

27)+'K 1 

< 48 > 180 PRINT 

<84> 190 PRINT”Vergrößern an.... (27) Wl'.... 

. Schirm löschen. ( 

2 7 ) + ' E 1 

<85> 200 PRINT"w1eder aus. (27)'W0‘.... 

. Home. ( 

27)+'H' 

<35 > 210 PRINT 

< 5 7 > 220 PRINT" Gemi seht. (27)’! '(1-63 

). Cursor an. ( 

27)+'e' 

<22 > 230 PRINT". 

. Cursor aus. ( 

2 7 ) + " f " 

< 84 > 240 PRINT"Superscribt an... (27)'S'(0) 

<45> 250 PRINT”Subscribt an. (27)'S'(1).. 

. Invers an. ( 

27)+'p' 

<21> 260 PRINT"beide aus. (27)'T'. 

. Invers aus. ( 

2 7) + ' q ' 

< 4 7 > 270 PRINT 

< 61 > 280 PRINT"Unterstre1chen an. (27)'-'(l). 

. Unterstreichen an. ( 

27)+'r' 

< 6> 290 PRINT'Vieder aus. (27)'-'(0), 

. Unterstreichen aus. ( 

2 7 ) + ' u ‘ 

< 34 > 300 PRINT 

<55> 310 PRINT"- T -Taste-drücke 


< 73> 320 RETURN 

< 92 > 330 ' Sicherheltsabfrage 
<98> 340 cls$=CHR$(27)+"E"+CHR$(27)+"H" 

<95> 350 PRINT cls$ 

< 92 > 360 PRINT" ACHTUNG" 

<72> 370 PRINT" Dieses Programm belegt 64 KBy 
te am Ende der RAM-Disk" 

<86> 380 PRINT" Wenn Sie wichtige Daten auf d 
er RAM-Disk haben, so" 

<97> 390 PRINT" sollten Sie dieses Programm n 
icht starten, da diese“ 

<26> 400 PRINT" überschrieben werden könnten 

<39> 410 PRINT:PRINT" Programm starten (J/N)" 
; :INPUT ent$ 

< 3> 420 ent$=UPPER$(ent$) 

< 9 > 430 IF ent$< >"J" THEN STOP 
<13 > 440 GOSUS 810 
<96> 450 PRINT cls$ 

<27> 460 PRINT"Dies ist eine kleine Oemonstra 
ti on" 

< 44 > 470 GOSUB 1830 

<8B> 480 PRINT"gleich wird eine Bi1dschirmse1 
te mit Print-Befehlen" 

<48> 490 GOSUB 1830 

< 5> 500 PRINT"aufgebaut und dann abgespeiche 
rt" 

< 33 > 510 GOSUB 1830 
<35 > 520 GOSUB 1630 

< 3 > 530 GOSUB 20 
<82> 540 CALL speichern 

< 9 7 > 550 PRINT cls$ 

< 3 5 > 560 PRINT'Dlese Seite ist jetzt gespeich 
e rt":GOSUB 1030 

<89> 570 PRINT"Wenn Sie die Seite benoetigen 
rufen Sie einfachGOSUB 1830 
<51> 580 PRINT"das Maschinenprogramm mit. -. 

call laden. - auf“:G0SUB 1830 
<28> 590 PRlNT"wenn sie dann eine beliebige T 
aste druecken 1st":GOSUB 1030 

< 3> 600 PRINT"der alte Bildschirminhalt sofo 
rt wieder da M :GOSUB 1830 

<65> 610 PRINT"so wie jetzt !":GOSUB 1830 
<67> 620 CALL laden 

<19> 630 PRINT:PRINT" sehen Sie ?":GOSUB 1830 
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< 29 > 

< 65 > 

< 5 > 

< 9 7 > 

< 2 8 > 

< 71 > 
<91 > 

< 64 > 

< 83 > 

< 6 > 

< 4 7 > 

< 38 » 

< 49 > 

< 9 > 

< 29 > 


640 PRINT"auf diese Weise können Sie auc 
h während des ProgrammierensGOSUB 1830 
650 PRINT"eine vorher abgespeicherte Sei 
te im Bruchteil einer SekündeGOSUB 183 
0 

660 PRINT"auf den Bildschirm holen":GOSU 
B 1830 

670 PRINT"Sie müßen nur eine Funktionsta 

ste mit dem BefehlGOSUB 1830 

680 PRINT"x=62769:cal1 x "M":G0SUB 1830 

690 PRINT"belegen":GOSUB 1Ö30 

700 PRINT"(s1ehe Programm screen2.bas ): 

":GOSUB 1830 

710 PRINT"x=62769:calIx” ; 

720 x=62 769 J :CALL x 

730 PRINT:PRINT"SIe sehen daß die einzig 
e Veränderung ln dieser einen Zeile best 
eht":GOSUB 1830 

740 PRINT"sonst ist der ganze Bildschirm 
inhalt erhalten geblieben":GOSUB 1830 
750 PRINT"Um einen Systemabsturz zu verm 
eiden muß auf jeden Fall":GOSUB 1830 
760 PRINT"einmal1g eine Seite abgespeich 
ert werdenGOSUB 1830 

770 PRINT"Die RAM-Disk verkleinert sich 
dabei um 64 KByte":G0SUB 1830 
780 PRINT: PRINT"Viel Spaß bei der Anwen 
düng":GOSUB 1830 


< 51 > 

790 

GOSUB 1830 

< 61 > 

800 

STOP 

< 3 7 > 

810 

MEMORY 4HF4FF 

< 14 > 

820 

RESTORE 920 

< 14 > 

830 

3peichern=&HF500 

< 3 7 > 

840 

1aden = 4HF5 31 

< 28 > 

850 

s = 0 

< 5 1 > 

860 

FOR i=0 TO 190 

< 92 > 

870 

READ x : POKE spe1 chern +i,x : s = s+x 

< 9 > 

880 

NEXT 1 

< 8 7 > 

890 

IF s< >22445 THEN PRINT “Datafehler ! 
STOP 

< 7 5 > 

900 

RETURN 

< 15 > 

910 

'speichern Bildschirm in Block 8E un 


< 8 > 

< 72 > 

< 2 8 > 

< 6 7 > 

< 86 > 
< 2 6 > 

< 76> 

< 96 > 


d 8F 

920 DATA 4HF3. 

930 DATA 4H3E,4H81 .. 

940 DATA 4H03.4HF1.. 

950 DATA 4H3E.4H8E.. 

960 DATA 4HD3.4HF2.. 

970 DATA 4H2 1,4HOO,4H40 
980 DATA &H11 , &HOO,&H80 
990 DATA 4H01.4H00.4H40 


DI 

LD A,81 
OUT (F1 ) , A 
LD A,8E 
OUT (F2),A 
LD HL,4000 
LD DE,8000 


< 75 > 

1000 

DATA 

4HED,4HB0. 


LDIR 

< 2 3 > 

1010 

DATA 

4H3E,4H82. 


LD A,82 

< 3 7 > 

1020 

DATA 

&HD3,&HF1. 


OUT (Fl),A 

< 6 0 > 

1030 

DATA 

4H3E,&H8F. 


LD A.8F 

< 0> 

1040 

DATA 

4HD3.4HF2.... 


OUT (F 2) ,A 

< 9 3 > 

1050 

DATA 

4H21,4H00,&H40 


LD HL.4000 

< 41 > 

1060 

DATA 

4H11.4H00,4H80 


LD DE.8000 

< 49 > 

1070 

DATA 

4H01,&H00,&H40 


LD BC.4000 

< 0> 

1080 

DATA 

4HED, 8.HB0. 


LDIR 

< 1 7 > 

1090 

DATA 

4H3E,4H85. 

* 

LD A,85 

< 33 > 

1100 

DATA 

4HD3,&HF1. 

1 

OUT (Fl).A 

< 5 1 > 

1110 

DATA 

&H3E.&H86. 

1 

LD A.86 

< 9 5 > 

1120 

DATA 

&HD3,&HF2. 


OUT (F2 ) , A 

< 75 > 

1130 

OATA 

&HFB. 


EI 

< 89 > 

1140 

DATA 

4HC9. 


RET 

< 1 7 > 

1150 ‘speichern Bildschirm ln 
nd 8D 

Block 8C u 

<41 > 

1160 

DATA 

&HF3. 

• 

DI 

< 86 > 

1170 

DATA 

&H3E , 4H81. 

1 

LD A,81 

< 5 7 > 

1180 

DATA 

&HD3,&HF1. 

• . 

OUT (Fl),A 

<11> 

1190 

DATA 

4H3E , 4H8C. 

• . 

LD A.8C 

< 9 1 > 

1200 

DATA 

&HD3,&HF2. 

■ . 

OUT (F2),A 

< 85 > 

1210 

DATA 

4H21,4H00,&H40 


LD HL,4000 

< 33 > 

1220 

OATA 

4H11,4H00,&H80 


LD DE,8000 

<41 > 

1230 

OATA 

4H01 ,&H00,4H40 

• . 

LD BC.4000 

<91 > 

1240 

DATA 

4HED,&HB0. 

* . 

LDIR 

<39 > 

1250 

DATA 

4H3E,&H82. 

• . 

LD A,82 

<53 > 

1260 

DATA 

4HD3,&HF1. 


OUT (F1 ) ,A 

< 63 > 

12 70 

DATA 

4H3E,&H8D. 


LD A.8D 

< 16> 

1280 

DATA 

&H03.4HF2. 

* , 

OUT (F2 ) ,A 

< 10> 

1290 

DATA 

4H21 ,&HOO,&H40 


LD HL,4000 

<29 > 

1300 

DATA 

4H11.4H00.4H80 


LD DE,8000 

< 3 7 > 

1310 

DATA 

4H01,&H00,&H40 

• . 

LD BC.4000 

< 8 7 > 

1320 

DATA 

&HED.&HB0. 


LDIR 

< 26 > 

1330 

8F 

‘laden Bildschirm aus Block 8E und 

<81 > 

1340 

DATA 

4H3E,4H81. 


LD A,81 

< 9 > 

1350 

DATA 

&HD3,4HF 2. 


OUT (F2),A 

< 19 > 

1360 

DATA 

4H3E.4H8E. 


LD A,8E 

< 58 > 

1370 

DATA 

4HD3.4HF1. 


OUT (Fl),A 

< 9 > 

1380 

DATA 

4H21,4H00,4H40 

■ . 

LD HL,4000 

< 5 6 > 

1390 

DATA 

4H11,4H00,4H80 


LD DE,8000 

< 36 > 

1400 

DATA 

4H01.4H00.4H40 


LD BC.4000 

< 86 > 

1410 

DATA 

4HED,4HB0. 

1 . 

LDIR 
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< 34 > 

1420 DATA &H3E.&H82. 


LD A,82 

< 5 > 

1430 DATA &HD3.&HF2. 


OUT (F2),A 

< 71 > 

1440 OATA &H3E.&H8F. 

. 1 

LD A,8F 

< 54 > 

1450 DATA &HD3.&HF1. 


OUT (Fl),A 

< 5 > 

1460 DATA &H21,&H00,SH40 

. 1 

LD HL,4000 

< 52 > 

1470 OATA &H11,&H00,&H80 

. 1 

LD DE,8000 

< 60 > 

1480 DATA &H01.&H0O.&H4O 

1 

LD BC.4000 

<11> 

1490 DATA &HE0.&HB0. 


LDIR 

< 0> 

1500 DATA &H3E.&H85. 


LD A,85 

<44> 

1510 DATA &HD3.&HF1. 


OUT (F1),A 

< 62 > 

1520 DATA &H3E.S.H86. 

• 

LD A,86 

< 7 > 

1530 DATA &HD3.8.HF2. 


OUT (F2),A 

< 6 > 

1540 ' AUF TASTENDRUCK WARTEN 

< 52 > 

1590 DATA S.HFB. 


EI 

< 85 > 

1560 DATA 8.H0E.&HO6. 


LD C, 6 

< 70 > 

1570 DATA &H1E.&HFD. 

: ‘ 

LD E,FD 

< 70> 

1580 DATA &HCD,&H05,&H00 


CALL 0005 

< 5 3 > 

1590 'alten Bildschirm aus Block 8C und 


8D holen 



< 2 7 > 

1600 DATA &HF3. 


DI 

< 78> 

1610 DATA &H3E.&H81. 


LD A,81 

< 6 > 

1620 DATA &HD3.&HF2. 


OUT (F 2) ,A 

< 3 > 

1630 DATA &H3E,&H8C. 


LD A,8C 

< 55 > 

1640 DATA 8.HD3.&HF1. 


OUT (F1),A 

< 6 > 

1650 DATA 8.H21 , &HOO , &H40 

: ' 

LD HL,4000 

< 5 3 > 

1660 DATA S.H11 ,&HOO , &H80 


LD DE,8000 

< 61 > 

1670 DATA &H01,&HOO,&H40 


LD BC,4000 

< 12 > 

1680 DATA &HED.&HB0. 


LDIR 

< 59 > 

1690 OATA &H3E,&H82. 


LD A,82 

< 2 > 

1700 OATA &HD3.&HF2. 


OUT (F2),A 

< 55 > 

1710 DATA &H3E.&H8D. 


LD A,8D 

< 5 1 > 

1720 DATA &HD3.&HF1. 


OUT (Fl ) , A 

< 2 > 

1 730 DATA &H21,8iH00,4H40 


LD HL,4000 

< 49 > 

1740 DATA &H11,&HOO,&H80 


LD DE,8000 

< 5 7 > 

1750 DATA S.H01 ,&H00 , &H40 


LD BC,4000 

< 8 > 

1760 DATA &HED.&HBO. 


LDIR 

< 2 5 > 

1770 DATA &H3E.&H85. 


LD A,85 

< 69 > 

1780 DATA &HD3.&HF1. 


OUT (Fl) ,A 

< 8 7 > 

1790 DATA &H3E.&H86. 


LD A,86 

< 4 > 

1800 DATA 1HD3.&HF2. 


OUT (F 2 ) ,A 

< 8 3 > 

1810 DATA &HFB. 


EI 

< 9 7 > 

1820 DATA &HC9. 


RET 

<89 > 

1830 FOR 1=0 TO 2500:NEXT 1 


< 7 > 

1840 RETURN 
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< 9 1 > 

440 GOSUB 520 



< 6 > 

450 GOSUB 20 



< 8 5 > 

460 CALL speichern 



< 45 > 

470 CALL tastefl 



< 3 > 

480 PRINT c13$ 



< 31 > 

490 PRINT "Hilfsseite auf Funktionstaste 

< 52 > 

500 NEW 



< 60 > 

510 STOP 



< 3 6 > 

520 MEMORY &HF4FF 



< 44 > 

530 RESTORE 670 



< 1 3 > 

540 spei chern = &HF500 



< 36 > 

550 1aden=&HF531 



< 5 1 > 

560 tastef1=&HF5C0 



< 2 9 > 

570 s=0 



< 5 2 > 

580 FOR 1=0 TO 190 



< 9 3 > 

590 REAO x : POKE speichern!' 

,x : s=s+x 

< 90 > 

600 NEXT 1 



< 8 1 > 

610 FOR 1=0 TO 38 



< 35 > 

620 READ x : POKE tastefl+1,x 

: s=s+x 

< 96 > 

630 NEXT 1 



< 9 0 > 

640 IF s<>26115 THEN PRINT "Datafehler ! 


" :STOP 



< 82 > 

650 RETURN 



< 22 > 

660 'speichern Bildschirm ln 

Block 8E un 


d 8 F 



< 1 5 > 

670 DATA &HF3. 


DI 

< 79 > 

680 DATA &H3E.&H81. 


LD A,8 1 

< 35 » 

690 DATA 8.HD3.&HF1. 


OUT (Fl) , A 

< 5 5 > 

700 DATA &H3E.&H8E. 


LD A,8E 

< 74 > 

710 OATA &HD3.&HF2. 


OUT (F2 ) , A 

< 1 4 > 

720 OATA &H21,&H00,&H40 


LD HL,4000 

< 64 > 

730 DATA &H11,&H00,&H80 


LD DE,8000 

< 84> 

740 DATA &H01,&H00,&H40 


LD 8C,4000 

< 52 > 

750 DATA &HED.&HB0. 

• 

LDIR 

< 31 > 

760 DATA &H3E.&H82. 

i 

LD A,82 

<32 > 

770 DATA &HD3.&HF1. 


OUT- (Fl) , A 

< 2 6 > 

780 DATA &H3E.&H8F. 


LD A,8F 

< 90 > 

790 DATA &HD3.&HF2. 


OUT (F2 ) , A 

<11> 

800 DATA &H21,&H0O,&H4O 


LD HL.4000 

< 61 > 

810 DATA &H11,&H00,S>H80 


LD DE,8000 

< 8 1 > 

820 DATA &H01,&H00,&H40 


LD BC,4000 

< 49 > 

830 DATA &HEO.&HBO. 


LDIR 

< 9 1 > 

840 DATA &H3E.&H85. 


LD A,85 
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< 29 > 

< 50 > 

< 8 7 > 

< 46 > 

< 7 7 > 

< 49 > 

< 6 > 

< 70 > 

< 26 > 

< 56 > 

< 84 > 

< 24 > 

< 74> 

< 94> 

< 62 > 


850 DATA &HD3.&HF1 
860 DATA &H3E.&H86 
870 DATA &HD3.&HF2 

880 DATA &HFB. 

890 DATA &HC9. 


OUT (Fl) , A 
LD A,86 
OUT (F2),A 
EI 
RET 


900 'speichern Bildschirm ln Block 8C un 
d 80 

910 DATA &HF3. 

920 DATA &H3E,&H81. . . 

930 DATA &HD3,&HF1. . . 

940 DATA &H3E.&H8C. . . 

950 DATA &HD3,&HF2.,. 

960 DATA &H21,&HOO,&H40 
970 DATA &H11,&HOO,&H80 
980 DATA &H01,&HOO,&H40 
990 DATA &HED,&HB0... 


DI 

LD A,81 
OUT (Fl) , A 
LD A,8C 
OUT (F2),A 
LD HL,4000 
LD DE,8000 
LD 8C.4000 
LDIR 


< 20> 

1000 

DATA 

&H3E.&H82. 

' . LD A.82 

< 34 > 

1010 

DATA 

&HD3.&HF1. 

' . OUT (Fl) , A 

< 4 4 > 

1020 

DATA 

&H3E.S.H8D. 

'. LD A,9D 

< 9 6 > 

1030 

DATA 

&HD3,&HF2. 

' . OUT (F2 ) , A 

< 90> 

1040 

DATA 

&H21,&H00,&H40 

'. LD HL,4000 

< 38 > 

1050 

DATA 

&H11,& H 00,&H80 

'. LD DE,8000 

< 46 > 

1060 

DATA 

&H01,&H00,&H40 

'. LD BC,4000 

< 9 6 > 

1070 

DATA 

&HED,&HBO. 

'. LDIR 

< 35 > 

1080 

8F 

laden 8i1dsch1rm aus Block 8E und 

< 90 > 

1090 

DATA 

&H3E,&H81. 

'. LD A,81 

< 89 > 

1100 

DATA 

&HD3,&HF2. 

' . OUT (F2 ) , A 

< 0> 

1110 

DATA 

&H3E,&H8E. 

' . LD A,8E 

< 39 > 

1120 

DATA 

&HD3,8.HF1. 

' . OUT (Fl) ,A 

< 89 > 

1130 

OATA 

&H21,&H00,&H40 

'. LD HL,4000 

< 3 7 > 

1140 

DATA 

&H11,8.H00 , &H80 

'. LD DE,8000 

< 45 > 

1150 

DATA 

&H01,&HOO,&H40 

' . LD BC,4000 

< 95 > 

1160 

DATA 

&HED, &HB0. . . 

'. LOIR 

< 43 > 

1170 

DATA 

&H3E,&H82. 

' . LO A,82 

< 14> 

1180 

DATA 

&HD3.&HF2. 

OUT (F2),A 

< 80 > 

1190 

DATA 

&H3E,&H8F. 

'. LO A,8F 

< 35 > 

1200 

DATA 

&HD3.&HF1. 

OUT (Fl) , A 

< 8 5 > 

1210 

DATA 

&H21.&HO0.&H40 

'. LD HL,4000 

< 33 > 

1220 

DATA 

&H11,&HOO,&H80 

'. LD DE,8000 

<41 > 

1230 

DATA 

&H01.&HOO.&H4O 

'. LD BC,4000 

< 9 1 > 

1240 

DATA 

&HEO, 8.HB0. 

'. LDIR 

< 9 > 

1250 

DATA 

&H3E,&H85. 

'. LD A,85 

< 5 3 > 

1260 

DATA 

&HD3,&HF1. 

' . OUT (Fl ) , A 

< 71 > 

1270 

DATA 

&H3E,&H86. 

'. LD A,86 

< 16) 

1280 

OATA 

&H03,&HF2. 

' . OUT (F2) , A 

< 15) 

1290 

' AUF TASTENDRUCK WARTEN 

< 33 > 

1300 

DATA 

8.HFB. 

' EI 

< 66 > 

1310 

DATA 

&HOE,&H06. 

' LD C,6 

< 5 1 > 

1320 

OATA 

&H1E.&HFD. 

' LD E,FD 

< 5 1 > 

1330 

DATA 

8.HCD , &H05 , &H00 

1 CALL 0005 

< 34> 

1340 'alten Bildschirm aus Block 8C und 
8D holen 

< 36) 

1350 

DATA 

&HF3. 

' 01 

< 8 7 > 

1360 

DATA 

&H3E,&H81. 

' . LD A,81 

< 15 > 

1370 

DATA 

&HD3,&HF2. 

' . OUT (F2 ) ,A 

< 12 > 

1380 

DATA 

&H3E,&H8C. 

'. LD A,8C 

< 64 > 

1390 

DATA 

8.HD3 , &HF1. 

' . OUT (Fl) ,A 

< 8 6 > 

1400 

DATA 

8.H21 , &H00 , &H40 

'. LD HL,4000 

< 3 4 > 

1410 

DATA 

&H11,&H00,&H80 

*. LD DE,8000 

< 42 > 

1420 

DATA 

S.H01,8.HOO , &H40 

'. LD BC,4000 

<92 > 

1430 

DATA 

&HED.&HBO. 

'. LDIR 

< 40 > 

1440 

DATA 

&H3E,&H82. 

'. LD A,82 

< 11 > 

1450 

DATA 

&HD3,&HF2. 

' . OUT (F2 ) ,A 

<64> 

1460 

DATA 

&H3E,&H8D. 

'. LO A,8D 

< 60 > 

1470 

DATA 

&HD3.&HF1. 

OUT (F1>,A 

<11> 

1480 

DATA 

&H21.&H00,&H40 

' . LD HL,4000 

< 58 > 

1490 

DATA 

&H11 , &H00,8.H80 

' . LD DE,8000 

< 38 > 

1500 

DATA 

8.H01 , &H00, &H40 

' . LD BC,4000 

< 88 > 

1510 

DATA 

&HED.&HBO. 

'. LDIR 

< 6 > 

1520 

DATA 

&H3E.&H85. 

1 . LD A,85 

< 50 > 

1530 

DATA 

&HD3,&HF1. 

'. OUT (Fl),A 

< 68 > 

1540 

DATA 

&H3E.&H86. 

'. LD A,86 

< 13) 

1550 

DATA 

&HD3,&HF2. 

OUT (F2),A 

< 9 2 > 

1560 

DATA 

&HFB. 

' . EI 

< 7 > 

1570 

DATA 

&HC9. .. 

' . RET 

< 18) 

1580 

' Funktionstaste 1 belegen 

< 81 > 

1590 

DATA 

&H06.&H90. 

'. LD B,90 

< 5 6 > 

1600 

DATA 

&HOE,&H0F. 

'. LD C,OF 

< 2 6 > 

1610 

DATA 

&H21,&HD8,&HF5 

'. LD HL,F5D8 

< 8 2 > 

1620 

DATA 

&HCD,8.H5A,&HFC 

' . CALL FC5A 

< 72 > 

1630 

DATA 

&HD4.8.H00. 

' . DW 0004 

< 68 > 

1640 

DATA 

&H06,&H90. 

'. LD B.90 

< 40 > 

1650 

DATA 

&H0E,&H02. 

'. LD C,02 

< 22 > 

1660 

DATA 

8.H16 , &H01. 

*. LD D,01 

< 9 7 > 

1670 

DATA 

&HCD , &H5A , 8.HFC 

' . CALL FC5A 

< 42 > 

1680 

OATA 

&HD7.&HOO. 

' . DW 00D7 

< 1 5 > 

1690 

DATA 

&HC9. 

' . RET 

< 78) 

1700 

DATA 

&H78,&H3D,&H36 

' . DB ■' x = 6'' 

< 2 > 

1710 

DATA 

&H32,&H37,&H36 

'. DB "276" 

< 3 1 > 

1720 

DATA 

&H39,&H3A,&H63 

'. DB "9:c" 

< 10) 

1730 

DATA 

&H61,&H6C,&H6C 

'. DB "all" 

< 3 7 > 

1740 

DATA 

&H20,&H78,&HOD 

' . DB " x,RET 


URN' 
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Mach mal Pause, Joyce! 

Möchten Sie endlich einmal Ihre Scheu vor der “Maschinensprache“ 
überwinden? Und gleichzeitig ein paar praktische kleine Programme ent¬ 
wickeln? 


Erste Hilfestellung dabei gibt Ihnen das 
folgende (Mallard-)Basic-Programm. 
Es schreibt für Sie ein (Maschinenspra- 
che-)COM-Programm, das 

1. den Bildschirm aufräumt, 

2. einen von Ihnen gewünschten Text 
ausgibt (von Freundlichkeiten wie 
“guten Mor-g-ä-h-n“ bis zu techni¬ 
schen Hinweisen wie “bitte dreh die 
Diskette im oberen Laufwerk her¬ 
um!“ ist alles möglich), und 

3. vor dem Weitermachen auf das 
Drücken der ENTER- oder RE- 
TURN-Taste wartet. Besonders 
diese dritte Eigenschaft des Pro¬ 
gramms kann sich als nützlich er¬ 
weisen: Falls Sie eine Startdiskettc 
mit einer PROFILE. SUB-Datei 
verwenden, können Sie sich vor 
dem Start des eigentlichen Pro¬ 
gramms z.B. ganz in Ruhe etwa das 
Inhaltverzeichnis einer Diskette an- 
sehen. Das PAUSE.COM-Pro- 
gramm gibt die weitere Abarbei¬ 
tung der Befehle der PROFI¬ 
LE.SUB-Datei erst nach Drücken 
von ENTER frei. Das Basic-Pro- 
gramm PAUSE.BAS besteht aus 
drei Teilen: 

— die Zeilen 60-170 dienen der 
Fehlerbehandlung und Aus¬ 
wahl . 


— in den Zeilen 500-740 wird, un¬ 
ter Verwendung der DATA- 
Zeilen 1000-1080 und des von 
Ihnen einzugebenden Textes, 
das PAUSE.COM-Programm in 
eine Random-Datei geschrieben, 

— die Zeilen 2000-2450 ermögli¬ 

chen das (byteweise) Lesen, 
Ausdrucken und Ändern des 
fertigen PAUSE.COM-Pro- 

gramms (und beliebiger anderer 
.COM-Programme und Datei¬ 
en!) in der Form 

Nummer_Wert(dezimal)_Wert(he- 

xadezi mal)_Wert (Text), 

stellten also einen kleinen Datei¬ 
monitor dar. 

Wie funktioniert nun 
P AUSE.COM? 

Werfen Sie zunächst einen Blick auf 
die Erläuterungen in den DATA-Zei- 
len (hinter den Doppelpunkten — kön¬ 
nen beim Abtippen weggelassen wer¬ 
den). Wenn Sie unter CP/M ein COM- 
Programm aufrufen, dann wird es zu¬ 
nächst von der Diskette in den Speicher 
geholt und dort ab Adresse &H0100 
(=dcz.256) abgelegt. Wichtig sind 
nun die Befehle in der dritten und sech¬ 
sten DATA-Zeile: sie bedeuten beide. 


daß über die Adresse &H0005 ein Un¬ 
terprogramm aufgerufen wird (CALL 
— wie bei einem GOSUB-Befehl). 
Beim Starten von JOYCE mit dem 
CP/M-Betriebssystem wurde diese 
Adresse 5 als Einsprungadresse für das 
BDOS (Basic Disc Opcrating System) 
definiert, das nicht nur (wie der Name 
sagt) Routinen für die Arbeit mit Dis¬ 
ketten enthält, sondern auch Tastatur¬ 
abfragen und Bildschirmausgaben erle¬ 
digen kann. Die Art der Aufgabe wird 
dem BDOS dabei über das Register C 
(einen der Arbeitsspeicher des Prozes¬ 
sors) mitgeteilt: 9 bedeutet “Gib den 
Text auf den Bildschirm aus, der an der 
Adresse beginnt, die im Doppel register 
DE steht! Er endet mit dem $-Zei- 
chen.“ 10 bedeutet “Übernimm die 
Tastatureingaben, bis RETURN ge¬ 
drückt wird und speichere sie ab der 
Adresse, die im Doppel register DE 
steht!“ Die Aufgabenverteilung muß 
natürlich vordem Sprung nach Adresse 
5 erfolgen - hier in den beiden 
DATA-Zeilen darüber mit den Ladebe¬ 
fehlen LD C und LD DE. Das Pro¬ 
gramm wird anschließend mit einem 
Sprung (JP) an die Adresse 0 
(=“Warmstart“, was soviel bedeutet 
wie der Basic-Befehl SYSTEM) been¬ 
det. Wie die Adressen, die im Doppel¬ 
register DE stehen müssen, angegeben 
werden, sehen Sie durch Vergleich der 
Zeile 1040 mit der Adresse in Zeile 
1070: die beiden Bytes stehen “ver¬ 
kehrt herum“: das erste Byte &H13 
und das zweite Byte &H01 werden zur 
Adresse &H01I3 zusammengesetzt. 
Da wir für unsere PAUSE-Programme 
bei der Eingabe nur am ENTER inter¬ 
essiert sind, steht an der Adresse 
&H0113 nur eine Null, andernfalls 
müßten wir hier mehr Platz reservie¬ 
ren. Ab Adresse &H0114 beginnt nun 
das, was auf den Bildschirm ausgege¬ 
ben werden soll, also zunächst ein ESC 
H (Cursor Home) und ein ESC E 
(Erase Screen). Wer den auszugeben¬ 
den Text gern in der Bildschirmmitte 
hätte, könnte hier z.B. noch ESC Y 48 
40 anfügen: 

1090 DATA 27,89,48,40 : ' (48-32=16.Zeile, 
40-32 = 8. Spalte) 

und 

670 F0H n=l T0 8 

für die Einleseschleife. Ihr in Zeile 770 
angeforderter Text wird nun an diesen 
Programmkopf angehängt (Schleife ab 
Zeile 790) und mit dem $-Zeichen ab¬ 
geschlossen (Zeile 840). Sehen Sie sich 
anschließend das fertige Programm mit 
der Option “M“ an, so werden Sie be¬ 
merken, daß nach dem abschließenden 
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$-Zeichen noch viele Nullen kommen. 
Das liegt daran, daß Dateien immer 
vollständige “Blöcke“ zu je 128 Byte 
belegen. Um Papier und Zeit zu spa¬ 
ren, enthält der Teil für die Ausgabe 
auf den Drucker in Zeile 2180 deshalb 
noch die Frage nach der Nummer des 
letzten auszudruckenden Zeichens. 


Nachdem Sie nun mit dem Befehl SY¬ 
STEM wieder nach CP/M zurückge¬ 
kehrt sind, können Sie Ihr Programm 
einfach mit der Eingabe des Pro¬ 
grammnamens (ohne .COM) auspro¬ 
bieren. Sie werden sehen: Es läuft 
blitzschnell — eben wie ein Maschi- 
nenprogramm! {Gisbert Friege/rs) 


Dieses Programm ist in Basic geschrieben. Nach 
dem Kingeben sollte es zuerst mit SAVE''PAU¬ 
SE. BAS" abgespeichert werden. Spider kann es 
dann unter CP/M mit A> BASIC PAUSE. BAS 
<RETURN> und unter Basic mit RUW'PAU- 
SE" <RETURN> wieder eingeladen werden. 
Die mit dem Programm erzeugten COMmando- 
Dateien werden später unter CP/M+ mit , 4 > 
NAME< RETURN> gestartet. 



LISTING > PAUSE <, REMARK = >'<. 


< 58> 

< 32 > 

< 2 6 > 

< 40 > 

< 5 > 
<18> 

< 2 7 > 

< 8 > 
< 6 > 

< 85 > 

< 45 > 

< 9 3 > 

< 20 > 

< 4 5 > 

< 29 > 

< 28 > 

< 5 > 

< 34 > 

< 0 > 

< 89 > 

< 77> 

< 8 5 > 

< 30 > 
<21 > 

< 44 > 

< 1 1 > 

< 84 > 

< 66 > 

< 39 > 

< 2 5 > 

< 5 > 

< 4 6 > 

< 4 > 

< 75 > 

< 45 > 

< 54 > 

< 14> 

< 8 7 > 

< 50 > 
<42 > 

< 28 > 
< 8 > 
< 1 > 

< 1 7 > 

< 9 0 > 

< 7 > 

< 4 0 > 

< 10 > 
<4 1 > 

< 53 > 

< 45 > 

< 3 1 > 

< 5 > 

< 35 > 

< 3 7 > 

< 39 > 

< 5 8 > 

< 40 > 

< 15 > 


10 PRINT CHR$(27)"E"+CHR${2?)"H" 

20 PRINT "*** PAUSE.BAS *** G.FRIEGE #** 29.11.198 
8 *** 

30 PRINT "-schreibt ein PAUSE - Programm mit belle 
blger Textausgabe 

40 PRINT "-1iest/druckt/ändert beliebige Datei byt 
eweise (MONITOR) 

50 1 

60 ON ERROR GOTO 70 
70 CLOSE 
80 ' 

90 PRINT:PRINT:PRINT 

100 PRINT "(N)eues PAUSE.COM - Programm" 

110 PRINT "(M)onltor - Lesen, Drucken und Ändern" 

120 PRINT "(E)nde ?... " 

; :antwort$=UPPER$(INPUT$( 1) ) 

130 PRINT CHR$(27)"E"+CHR$(27>"H"; 

140 IF an two rt$="N" THEN GOSUB 500 
150 IF antwort$="M" THEN GOSUB 2000 
160 IF antwort$="E" THEN END 
170 GOTO 90 
160 ' 

500 PRINT:PRINT:PRINT 

510 PRINT "Name des neuen Pause-Programms (z.B. a: 
p3.com) : INPUT name$ 

520 OPEN "r " ,2, name$,l 
530 FIELD 2,1 AS a$ 

540 ' 

550 RESTORE 1000. PROGRA 

MM KOPF 

560 FOR n=1 TO 20. 


570.. . READ byte 

580.. . LSET a$ = CHR$(byte ) 

590.. . PUT 2 
600 NEXT 
610 1 

620 PRINT:PRINT:PRINT 

630 PRINT "Soll das Programm vorher den Bildschirm 
loeschen ?. (j/n) 

640 antwort$=UPPER$(INPUTS(1)):PRINT antwortS 
650 IF antwo r t$ < > " J " THEN GOTO 730 

660 RESTORE 1080. ;* BILDSC 

HIRMSTEUERUNG 
670 FOR n=1 TO 4 

680.. . READ byte 

690.. . LSET a$=CHR$(byte> 

700.. . PUT 2 
710 NEXT 

720 ' 

730 PRINT;PRINT:PRINT 

740 PRINT "Welchen Text soll das Programm ausgegeb 
en ? " 

750 PRINT:PRINT "(Wenn der Text ein Komma enthalte 
n sol1, 

760 PRINT "muss er von einem Anfuehrungszeichen ei 


ngeleitet werden) 

770 PRINT:PRINT:INPUT text$:1aenge=LEN(text$ ) 

780 ' 

790 FOR n = l TO laenge. TEXT 

800.. . LSET a$=MI0$(text$,n,l) 

810.. . PUT 2 

620 NEXT 
830 ' 

840 LSET a$="$" : PUT 2. TEXTABS 

CHLUSS 
850 ' 

860 CLOSE:RETURN 
870 ' 

1000 DATA 14,9. : 'H0100.. ' LD C.9 

1010 DATA 1 7 , &H 1 4 , &H0 1. : 'H0102.. 'LD DE.H 

0114 

1020 DATA 205,5,0. : 'H0105.. 'CALL 00 

05 < BDOS) 


< 12> 

1030 DATA 14,10. : 

'HO 108. . 

'LO C,10 

< 68 > 

1040 DATA 1 7 , &H1 3 , &H0 1. : 

0113 

'HO 10A. . 

’LD DE,H 

< 15 > 

1050 DATA 205,5,0. : 

05(BDOS) 

'H010D.. 

'CALL 00 

< 9 6 > 

1060 DATA 195,0,0. : 

(Warmstart-»inaechstes Programm) 

' HOHO. . 

'JP 0000 

<10> 

1070 DATA 0. : 

puffer 

'HO 113.. 

’Eingabe 

< 10> 

< 11> 

1080 DATA 27, 72,27,69 . 1 

1rmsteuerung, z.B. ESC H. ESC E 
1090 ‘ 

'H0114 . . 

'8i1dsch 

< 73 > 

2000 PRINT "Name der zu lesenden 
com). INPUT name$ 

Datei (z 

.B. a:pl. 

< 5 7 > 

2010 PR INT:PRINT "Rollen an/aus 
mit Leertaste." 

mit f5 , 

Auf hören 


< 5 > 2020 PRINT " Nr. ";TAB(10)"dez. ";TAB(20)“hex,";TAB(4 

0)"Textz . " 

< 5 6 > 2030 PRINT CHR$(27> + "X"+ CHR$(37)+CHR$(32)+CHR$(47) 

+CHR$(121> 

< 42 > 2040 OPEN "r",l, name$,l 

< 90 > 2050 FIELD 1,1 AS a$ 

< 52 > 2060 GET 1,1 

< 54 > 2070 n = l 

< 7 7 > 2080 WHILE NOT EOF(1) AND IN KEY$ = "" 

<66> 2090.. PRINT n;TAB(10); 

< 58 > 2100. . GET 1, n 

< 5 3 > 2110.. PRINT ASC(a$);TAB(20);HEX$(ASC(a$) ,2);TAB(4 

0) ; 

<11> 2120.. IF ASC(a$)> 3 3 THEN PRINT a$ ELSE PRINT 

< 32 > 2130 n = n+1 

< 2 6 > 2140 WEND 

< 42 > 2150 PRINT CHR$(27) + "X"+CHR$(32)+CHR$(32)+CHR$(63) 

+CHR$(121); 

< 5 > 2160 ' 

< 4 > 2170 PRINT CHR$(27) + "Y" + CHR$(53)+-CHR$(32) ; 

<88> 2180 INPUT "Ausgabe auf den Drucker bis zum wievie 
lten Zeichen (oder 0). letztes 

< 64 > 2190 IF 1etz tes = 0 THEN 2270 

< 52 > 2200 FOR n=l TO letztes 

<21> 2210.. LPRINT n;TAB(10); 

< 6 6 > 2220. . GET 1,n 

< 5 6 > 2230.. LPRINT ASC(a$) ;TAB(20);HEX$(ASC(a$),2);TAB( 

40) ; 

< 5 0 > 2240.. IF ASC(a$ ) > 33 THEN LPRINT a$ ELSE LPRINT 

< 3 > 2250 NEXT 

< 7 > 2260 ' 

<32> 2270 PRINT:PRINT "Nummer des zu korrigierenden Byt 
es (oder 0) : ";:INPUT"",n 

< 6 > 2280.. IF n = 0 THEN 2450 

<10> 2290.. PRINT:PRINT n;TAB(10); 

< 62 > 2300, . GET l,n 

<57> 2310.. PRINT ASC(a$);TAB(20);HEX$<ASC(a$),2);TAB(4 

0 ) ; 

< 15 > 2320.. IF ASC(a$)>33 THEN PRINT a$ ELSE PRINT 

< 8> 2330 PRINT:PRINT "Eingabe (d)ezimal oder (h)ex ode 

r als (T)extzeichen ? “ ; :antwort$ = UPPER$(INPUT$(1) 

) 

< 2 > 2340.. PRINT antwort$:PRINT:IF INSTR("DHT".antwort 

$)=0 THEN 2330 

< 7 2 > 2350 PRINT "Eingabe : ":PRINT 

< 7 7 > 2360.. IF antwort$="D" THEN PRINT TAB(10) ; :INPUT " 

“,byte:LSET a$=CHR$(byte) 

< 8 8 > 2370.. IF antwo r t$= " H" THEN PRINT TAB(20);:ai$="&H 

" + INPUT $(2):LSET a$=CHR$(VAL(ai$)) 

< 9 1 > 2380.. IF antwo r t$= "T" THEN PRINT TAB(40) ; :ai$ = INP 

UT$(1) :LSET a$ = ai$ 

<12 > 2390.. PRINT:PRINT n;TAB(10); 

< 5 6 > 2400.. PRINT ASC(a$);TAB(20);HEX$(ASC(a$),2);TAB(4 

0) ; 

<14 > 2410.. IF ASC(a$)> 33 THEN PRINT a$ ELSE PRINT 

< 35 > 2420 PUT l,n 

< 37> 2430 GOTO 2270 

< 5 > 2440 ' 

< 89 > 2450 CLOSE:R ETURN 
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JOYCE i 


Wer suchet, der findet 

Ein Mini-Lexikon für Ihren Joyce PCW 

Aktuelle Themen, wie zum Beispiel die Gesundheitsreform, sind im Moment 
noch in aller Munde. Was aber tun, wenn man in einem Jahr noch etwas 
darüber wissen möchte? 

Sinnvoll wäre es, sich die wichtigsten Merkmale herauszuschreiben und diese 
dann in den Computer einzugeben. So kann man immer wieder über diese 
Daten verfügen, ohne lange in einer verstaubten Ablage suchen zu müssen. 


Da mit der Zeit sehr viele dieser Begriffe 
auftreten können, der Diskettenspeicher¬ 
platz aber auch begrenzt ist, sollte nicht 
zuletzt bei dem Verwaltungs-Programm 
an der Länge gespart werden. 

Die wichtigsten Funktionen, wie zum 
Beispiel Suchen, Eingeben und Löschen 
von bestimmten Begriffen, sollten natür¬ 
lich integriert sein. Zusatzfunktionen sind 
natürlich möglich, erschweren jedoch das 
schnelle Arbeiten und sind meistens auch 
recht verwirrend. 

Nur 1 KB 

Daß dieses Programm nur “1KB“ Spei¬ 
cherplatz benötigt, hört sich im ersten 
Moment schon unverschämt kurz an. Da 
jedoch die wichtigsten Funktionen inte¬ 
griert sind, (die eingegebenen Begriffe 
nebst Erklärungen werden in zwei Jetsam 
Dateien untergebracht, was auch für die 
sinnvolle Speicheroptimeimng der Dis¬ 
kettenkapazität spricht), läßt jeden sofort 
erkennen, was für ein Programmierge¬ 
schick hinter diesem Programm steckt. 


Die Bedienung 

Nach dem Starten erscheint auf dem Bild¬ 
schirm eine Zeile, welche das Menü dar¬ 
stellt: 

(S)uchen (Einlesen (L)öschen (W)orte 
E(x)it 

Die in den Klammern stehenden Buchsta¬ 
ben müssen in Großbuchstaben eingege¬ 
ben und mit < ENTER > bestätigt wer¬ 
den. Damit Sie aber auch wissen, was bei 
der Wahl eines Menüpunktes passiert, 
soll jetzt erst einmal eine kutze Beschrei¬ 
bung der einzelnen Punkte in der logi¬ 
schen Reihenfolge folgen: 

E-Einlesen 

Ais erstes wird nach dem Suchwort ge¬ 
fragt, welches maximal 20 Zeichen be¬ 
inhalten darf, ist diese Eingabe mit 
< ENTER > abgeschlossen, können Sie 
einen beliebigen Erklärungstext einge¬ 
ben. Nach jeder Bildschirmzeile müssen 
Sie erneut < ENTER> drücken, da 
nicht mehr als 90 Zeichen pro Zeile über¬ 
nommen werden. Sind Sie jetzt mit der 


Eingabe fertig, sollte die ENTER-Taste 
zweimal betätigt werden. Der Computer 
speichert diesen Begriff nun ab und mel¬ 
det sich wieder mit dem Menü. 

S-Suchen 

Möchte man die Erklärung eines der bis¬ 
her eingegebenen Worte wieder auf den 
Bildschirm bringen, wählt man einfach 
diesen Menüpunkt an und gibt das voll¬ 
ständige Suchwort ein. Wird dieses Wort 
gefunden, folgt die Erklärung, ansonsten 
meldet sich der Computer wieder mit 
dem Menü. 

W-Worte 

Sind schon einige Begriffe eingegeben 
worden, können hier alle Begriffe auf 
dem Bildschirm aufgelistet werden. 
L-Löschen 

Stellt sich heraus, daß man eine bessere 
Formulierung für einen Begriff hat-daß 
die Erklärung nicht mehr gebraucht wird - 
kann hier durch Eingabe des Suchwortes 
der Datensatz gelöscht werden. 

X-Exit 

Ist der gesuchte Begriff gefunden oder 
möchte man aus einem anderen Grund 
das Programm verlassen, kann dies hier¬ 
mit geschehen. 

(Ralf Thelen/rs) 


Dieses Programm ist in Mallard-Basic geschrieben. .Mach 
(lern Eingehen sollte es vor dem ersten Start mit 
SAVE"LEXIKON, BAS" < ENTER > abgespeichert 
Vt erden Sofern noch nicht vorflanden, erstellt das Pro¬ 
gramm nach der ersten Eingabe zwei Dateien mit dem 
Namen W.D tuitl W.l Diese enthalten demn die eingege 
betten Daten. 

Sollten Sie Verbesserung.-!- oder Ventndcnmgsvorscliläge 
für dieses Programm haben, möchten wir Sie bitten, uns 
diese mitztäeilm. so daß wir diese an andere Leser h vi 
tergeben können. 


LISTING > LEX I KON <, REMARK = > REM <. 


< 24 > 23 e=SEEKNEXT(#1.0) 



< 6 > 24 WEND 

<13> 1 ON ERROR GOTO 43 


< 5 7 > 25 GOTO 6 

< 81> 2 BUFFERS 150 


<95> 26 INPUT "Welchen Datensatz Loeschen ";x 

< 82 > 3 IF FI N0$ ("W.D" ) = " THEN CREATE Kl,"W.O 


y$:GOSUB 45 

","W.l",2,112 : CLOSE #1 


< 69 > 27 IF e< >0 THEN 6 

< 65 > 4 OPEN "K“,♦1,"W.D","W.I",2 


< 73> 28 WHILE e = 0 OR e=101 

< 69 > 5 FIELD #1,20 AS w$,90 AS s$ 


< 35 > 29 dum=DELKEY(#l,0) 

<47> 6 PRINT:INPUT "<S>uchen. <E>in1esen. <L> 


< 6 7 > 30 e=SEEKKEY(#l,0,0,xy$) 

oeschen. <W>orte. E<x>it ?“;e$ 


< 1> 31 WEND 

<81> 7 IF e$=“S" THEN 17 


<96> 32 dum=CONSOLIDATE(#l) 

<11> 8 IF e$ =" L" THEN 26 


< 5 4 > 33 GOTO 6 

<21> 9 IF e$=" E" THEN 34 


< 7 7 > 34 INPUT "Wort ?";xy$:GOSUB 45 

< 42 > 10 IF e$="X " THEN 43 


< 49 > 35 PRINT xy$ 

< 75 > 11 IF e$="W" THEN 13 


<73> 36 LINE INPUT xs$ 

< 50 > 12 GOTO 6 


< 34 > 37 IF xs$="" THEN dum=CONSOLIDATE(#1) ;GO 

< 7 6 > 13 e = SEEKRANK(#1,0.O) 


TO 6 

< 64 > 14 WHILE e=0 OR e=101 


< 94 > 38 LSET w$ = xy$:LSET s$=xs$ 

< 55 > 15 GET #1:PRINT w$;". ";:e = SEEKSET(#1,0) 


< 54> 39 e = ADDREC(#l,2,0,w$) 

: WEND 


< 62 > 40 PUT #1 

< 58 > 16 GOTO 6 


< 69 > 41 GOTO 36 

< 1> 17 INPUT "Suchbegriff "Jxy$:GOSUB 45 


<19> 43 CLOSE #1 

< 70> 18 IF e< >0 THEN 6 


< 39 > 44 END 

< 55 > 19 PRINT xy$ 


< 2 5 > 45 IF xy$ = ""OR LEN(xy$)>20 THEN GOTO 6 



<47> 46 xy$=UPPER$(xy$):xy$=xy$+SPACE$(20-LEN 



(xy$) >:e = SEEKKEY(#1,0,0,xy$) 

<11> 22 PRINT s$ 


<22 > 47 RETURN 

Listing Mini-Lexikon 
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Verschlüsselung einzelner Dateien 
und ganzer Disketten. 

Auch bei Ihnen können ab und zu sensible Daten anfallen, die nicht jeder le¬ 
sen sollte. Schreiben Sie Tagebuch? Na bitte! Diskette wegschließen oder 
gar im Garten vergraben? Durch zahlreiche Programme gibt es die Mög¬ 
lichkeit, Disketten oder einzelne Dateien zu verschlüsseln. Eines aus dieser 
Reihe wollen wir hier vorstellen. 


Endlich mal wieder eine Programm- 
Neuentwicklung, welche brauchbar ist 
und die auf Anhieb läuft. So schlicht 
lassen sich die folgenden Eigenschaf¬ 
ten ausdrücken: Eine verständliche An¬ 
leitung mit exakter Grammatik fällt als 
erstes auf; man stolpert noch nicht ein¬ 
mal über Kommafehler. Das deutet 
schon auf Sorgfalt auch bei der Pro¬ 
grammerstellung hin; und tatsächlich: 
Ein professioneller Programmstil zeigt 
sich. Das Paßwort ist während des Co¬ 
diervorgangs nicht sichtbar - so wie es 
sein soll; es darf aus bis zu 15 beliebi¬ 
gen Zeichen, nicht nur aus Buchstaben 
und Ziffern, bestehen. Des weiteren 
werden auch Umlaute akzeptiert. Ein 


Laufwerk kann ausgewählt werden, 
verschiedene Dateienarten (auch Loco- 
scriptj, sogar ganze Disketten auf ein¬ 
mal können verschlüsselt werden. 

Zum Starten muß man nur zwei Buch¬ 
staben eingeben. Das hört sich ganz 
normal an, ist aber gar nicht so selbst¬ 
verständlich und hat den Programmie¬ 
rer sicher manche Stunde gekostet. 

Noch etwas zu den hard facts: Die Ver¬ 
schlüsselung einer ganzen Diskette mit 
irgendeinem Inhalt mit der Gesamtdis- 
ketten-Programmversion geht folgen¬ 
dermaßen vor sich: CP/M starten, Ein¬ 
gabe von <dk>, Angabe eines Paß¬ 
worts, Eingabe des Laufwerks, und 
nach nur 1 1/2 Minuten erkennen Sie 


Ihre Diskette nur noch am Etikett. Das 
Directory (Inhaltsverzeichnis) der Dis¬ 
kette wird mitverschlüsselt. 
Datensicherheit! Der DIR-Befehl 
meint “no file“, mit DIR [all] ergibt 
sich ein wirrer Nonsens ohne Anzeige 
irgendeines Dateinamens. Einlesen in 
LocoScript nützt natürlich auch nichts. 
Jeder Computerbenutzer, auch der Lo- 
coScript-Anfänger, erhält mit dieser 
Gesamtdisketten-Version ein mächti¬ 
ges Instrument in die Hand, das nun 
wirklich ohne CP/M-Vorkenntnisse 
die Verschlüsselung der brisantesten 
Daten wie auch der allerersten Schreib¬ 
übungen erlaubt. 

Bei der Einzeldatei-Programmversion 
geht’s ähnlich mit der Eingabe < fk > ; 
hier sind ganze Gruppen von Dateien 
gleichzeitig verschlüsselbar. Angaben 
von * und ? (sogenannten Wildcards, 
also Zeichen, die für beliebige andere 
Zeichen stehen), sind möglich. Übri¬ 
gens wird nach der Verschlüsselung 
der Einzelfiles noch die Diskette “auf¬ 
geräumt“, das heißt, bereits gelöschte, 
aber prinzipiell mit Diskettenmonito¬ 
ren noch lesbare Dateien werden ent¬ 
fernt. 

CP/M-Befehle wie PIP, ERASE, DIR, 
USER-Umschaltung sowie Wildcards 
und Trans-Dateien in LocoScript soll¬ 
ten allerdings gewohnte Begriffe sein, 
um alle Möglichkeiten der Einzeldatei- 
Programmversion souverän handhaben 
zu können. Aber zur Verschlüsselung 
ganzer Disketten und damit zur Benut¬ 
zung der Gesamtdisketten-Programm- 
version, wie gesagt in immerhin nur 
1 1/2 Minuten, ist das alles nicht nötig. 
Und wer meint, den Code der mitgelie¬ 
ferten Datei GEHEIM.TXT knacken 
zu können, dem verspricht der Softwa¬ 
re-Autor bei Entschlüsselung eine 
Public-Domain-Gratisdiskette freier 
Wahl. Das ist ein Wort! Hacker ans 
Werk: Zeigt Euren sportlichen Ehr¬ 
geiz! Ein Problem sehe ich allerdings 
bei der Verschlüsselung Ihrer Tagebü¬ 
cher: Nach Ihrem Tod wird keine post¬ 
hume Herausgabe möglich sein: An 
den Inhalt kommt keiner mehr ran. Au¬ 
ßer Sie haben das Paßwort auf einem 
Zettel unter der Schreibtischunterlage 
(zusammen mit der Euroscheck-Ge¬ 
heimzahl?) liegen! Da finden es die Er¬ 
ben (und andere Sucher) zuerst. 

(Dr. Günther Kohlbeeker/rs) 

Entwickler: Oliver Reeg EDV-Vermrul 

Krowelstr. 3. 1000 Berlin 20 

Tel.: 030/331 14 26 

Breis: 40.50 DM 

CPC 6218/JO YCE/A MS TRA D PC W 
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Checksummer für den Joyce PCW 

Der Prüfsummengenerator 
für unsere Listings 

Über die Prüfsummen am Rande von Basic-Listings, welche in unserem 
Heft veröffentlicht werden, wundert man sich nicht mehr. Man weiß ja in¬ 
zwischen, daß diese eine Hilfe beim Abtippen bedeuten. Es ist nun wieder 
langsam an der Zeit, auch diejenigen zu beglücken, die unser Programm 
noch nicht besitzen. 


Um mit diesem Programm zu arbeiten, 
benötigt man ein Programmlisting, 
welches mit SAVE“M:NAME.ASC“ 
auf das Laufwerk M: gespeichert wird. 
Nun kann man die Diskette mit dem 
CHECK-Programm einlegen und die¬ 
ses mit RUN“CHECK“ starten. 


Als erstes wird der Name des zu 
“CHECKenden“ Programms erfragt. 
Wurde dieser eingegeben, müssen nun 
die REM-Zeichen eingetippt werden, 
da dieses von Programmiersprache zu 
Programmiersprache unterschiedlich 
ist. Ja, Sie haben jetzt richtig gelesen, 


unser Checksummer eignet sich auch 
für andere Programmiersprachen wie 
zum Beispiel Assembler, Cobol und 
viele mehr. 

Als nächstes ist das Ausgabemedium 
gefragt. Die Möglichkeiten sind M für 
Monitor, P für Drucker und D für Dis¬ 
kette, wobei bei der Wahl von Diskette 
eine Datei mit dem Namen .PRN ange¬ 
legt wird. Diese kann zum Beispiel mit 
RPED eingelesen werden. 

Jetzt können die Checksummen am lin¬ 
ken Rand mit denen, welche im Heft 
ausgedruckt sind, verglichen werden. 
Es ist noch anzumerken,daß, wenn in 
einer Zeile mehrere Leerzeichen vor¬ 
handen sind, diese in Punkte umge¬ 
wandelt werden. 

(rs) 



<52> 10 REM check.bas 04.11.86 wrltten by H.J.Meyer Mar 
sum 
<787 20 : 

< 55 > 30 ON ERROR GOTO 1080 
<80 7 40 : 

<B5> 50 OEFINT c,s,w.*:OEFSNG e,2:WIDTH 90 
<5B> 60 bei1$=CHR®(7):esc$=CHR${2?) 

<56> 70 1 nvon®=esc$+"p" ; 1 nvoff®=esc$+ "q" : REM invers an/ 


aus 

<10> 80 Fehl$=be 11 $+esc®+ "A'' + esc$ + "K''+CHR$(13) :REM Zeil 
e löschen 

<85> 90 : 

< 58> 100 REM Voreinstellung 

<34> lio DATA END:.... REM Dateiname (D 2 H. end=Programm 
beenden) 

<90> 120 data . rem Remark 1s ' < in Assembler = 

; In Cobol = * usw.) 

<41> 130 DATA P:..,,,, REM Ausgabe (M=Mon1tor/P=Prtnter 
/D=D1sk) 

<11> 140 DATA 50:. REM Zellenlänge (10-00) 

<96> 150 DATA 0:. REM Startzeilc (0-65534 ) 


<45> 160 READ datei$,rmk$,ausgabe$,z1en$,start® 

<28 > 170 : 

< 39 > ISO PRINT esc$"H"esc$"E"; 

< 32 > 190 : 

< 39 > 200 PRINT.PRINT CMR®(150)STRING®(35,154)CHR®(156) 
<10> 210 PRINT CHR$(149)" JOYCE-CHECKSUMM 

£ R "CHR®(149) 

<03> 220 PRINT CHfi$(147)STR!NG$(35.154)CHR$(153) 

<22> 230 PRINT 1nvon$:FILES "m:*.ASC":PRI NT:PRINT invof 

f® 

<58> 240 suchdat®=FIND® <"M:*.asc'') 

<94> 250 IF suchdat$<>""THEN datei® = IEFT®(suchdat$ 8) 

< 2 7 > 260 : 

<857 270 PRINT" Dato I natne" ,“< "datei $" 7INPUT in® 

<37> 280 in$=UPPER$(ln$):IF 1n®=“" THEN in$=datei$ 

< 37 290 IF LEN(1n$)>8 THEN PRINT fehl$;:GOTO 270 
<35> 300 IF 1n$ ="END“ THEN PRINT:END 

< 76> 310 datel$=1n$ 

< 20 > 320 : 

< 78 > 330 PRINT"REM-ZeiChenrmk$"INPUT in$ 

< 84 > 340 IF t n$="” THEN 1n®=rmk® 

<23> 350 IF in®="N0" THEN in$=CHR$(255) 

< 92 > 360 rmk$=in$ 

< 30 > 370 : 

<36> 380 PRINT"Ausgabe“,"<" ausgabeS ">“,;INPUT in$ 

<56> 390 ln®=UPPER$(1n*>;IF ln$="" THEN tn$=ausgabe$ 

< 3> 400 wah1=INSTR("MPO”.1n$) 

<22> 410 IF wah1=0 THEN PRINT fehl®;:GOTO 380 
<37> 420 ausgabe$=1n$ 

< 23 > 430 : 

<89> 440 PRINT''Zei 1 enl änge’’, " < "z 1 en$ ' > " , : 1 NPUT 1 n$ 

<35> 450 IF 1 n$= "" THEN 1n®=zlen® 

< 39 > 460 zlen = VAL<in$) 

<40 7 470 IF z1en <10 OR zlen>80 THEN PRINT feh]$::GOTO 4 

40 

<307 480 z1en$=1n$ 

<357 490 : 

<19> 500 PRINT " Startzei 1e",”<"start$ " 7INPUT 1n$ 

<817 510 IF in$= THEN 1n$=start® 

<547 520 e rste = VAL(in$) 

<507 530 IF erste<0 OR erste765534! THEN PRINT fehl$;:G 
OTO 500 

<467 540 start®=ln$ 

< 28 > 550 : 

<737 560 datnam$="m: "+datei$+'' . ASC" 

<307 570 prnnam$="a:“idatei$♦". prn" 


<357 

< 747 

<197 

< 57 
<507 

< 1B7 

<277 

<167 

<927 

<307 

<357 

<457 

<857 

< 07 
<247 
<167 
<337 
<307 
<137 
<447 

<687 

<447 

<857 

< 707 
<677 
<277 
<487 
<477 
<507 
<477 
<617 

<397 

<277 

<697 

<777 

< 67 
<427 

< 737 

<347 

< 637 
<837 
<837 
<67 7 

<887 

<187 

< 17 
<287 
<927 
<B57 
<207 
<337 
<497 

<977 

<207 

<717 

<647 


580 PRINT:OPEN"I",1,datnamj 

590 PRINT"LI ST ING 7"datei$"<, REMARK = >"rmk®"<.": 

PRINT 

600 : 

610 IF wah1< 72 THEN 650 

620 LPRINT esc$"l"CHR$(10);esc$"M“; 

630 LPRINT LISTING 7"date1 $"<, REMARK = 7"rmk$"<. 

:LPRINT 
640 : - 

650 IF wahl<73 THEN 690 
660 ÖPEN"0",2,prnnamS 

670 PRINT 1*2 , *' LISTI NG > " ; da te I $ ; " < , REMARK = 7 ” : rm 
k$; <. :PRINT #2," “ 

680 : 

690 IF EOF(1) THEN GOTO 1060 

700.. LINE INPUT #1,zelle® 

710.. IF VAL(zei1e$)<erste THEN 690 

720.. : 

730.. x=INSTR(zeileS,SPACE$(2)):IF x = 0 THEN 760 

740.. MID$(zei1e$,x,1)=”.":GOTO 730 

750.. i 

760.. x=INSTR(zetie$,rmk$+" ") 

770.. IF x = 0 THEN clen=LEN(ze110$):ELSE clen=x+LEN 
(rmk$)-l 

780.. summe=0 

790, . FOR x = 1 TO den 

800.. .. summe=(summe*(ASC(MIDSCzeileS.x, 1))AND 127 
>*x)MOO 99 

810 . . NEXT 

820.. druck® = zei1e$ 

830. . : 

840.. IF wah1< 71 THEN 900 

850.. PRINT USING"< 4 # 7 "isumme; 

860.. teil$=LEFT$(druck$,zlen):PRINT teil® 

870.. druck®=MlD®(druck®.zlen+1) 

880.. IF LEN(d ruck$)70 THEN PRINT SPACES(5GOTO 
860 

890.. i 

900.. IF wähl<72 THEN 970 

910.. PRINT USING"< 4«»»# 7";VAL(druck®>; 

920.. LPRINT USING"<447 ";summe; 

930.. teM® = LEFT$(druck® , z 1 en) : LPRINT teil® 

940.. druck$=MID$(druck®,zlen+1) 

950.. IF LEN(druckS)>0 THEN LPRINT SPACES(5);:GOTO 
930 

960.. ! 

970.. IF wähl<73 THEN 1040 

980.. PRINT US1NG"< «»II« 7";VAL(druckS ) ; 

990.. PRINT #2,USING"<447 ";3Umme; 

1000.. teilS=LEFT$(druck$.zlen):PRINT *2, teil® 

1010.. druck®=MID$(druck®,z1on+1) 

1020.. IF LEN(d ruck®)7 0 THEN PRINT *2,SPACE®(5); ;G 
OTO 1000 

1030.. : 

1040.. IF INKEY$=CHR®(8) THEN GOTO 1060 
1050 GOTO 690 

1060 CLOSEI PRINT:GOTO 200 
1070 : 

1080 REM Fehlerbehandlung 

1090 fehler®=" Fehler Nr." + STR$(ERR) + " In Zelle Nr 
."+STR$(ERL)+". " 

1100 IF ERR=53 THEN fehlerS=" Datei nicht Vorhände 
n . " 

1110 IF ERL=230 THEN fehler®=“ Keine ASCII-Datei v 
orhanden. " 

1120 CLOSE;PRINT invon®;fehler®;Invoff®;bell$:PRIN 
T 

1130 IF ERL=230 THEN RESUME 270 ELSE RESUME 200 
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Die Geister, die ich rief . . . 
Hari-Man — Die Hatz beginnt 


Falls Sie mal zwischendurch etwas 
Zeit haben, könnten Sie eventuell 
Freund Hari-Man bei der Jagd nach 


Energiepillen helfen? Er kann Hilfe 
gebrauchen, denn er wird selbst er¬ 
barmungslos gejagt. 

— 


Gespielt wird mit den Tasten 2, 4, 6 und 
8, mit ihnen kann man Hari-Man steuern. 
Die blauen Mauern stellen Hindernisse 
dar, die weder Sie noch die schwarzen 
Dreiecke überwältigen können. Die 
schwarzen Dreiecke sind die bösen Gei¬ 
ster, sie sollen Ihnen das Leben schwer 
machen, was ihnen manchmal auch ge¬ 
lingt. Achten Sie darauf, daß die Geister 
Sie (und Hari-Man) ohne Gnade verfol¬ 
gen wollen. Eines allerdings dürfen die 
Dreiecke nicht: die Aufzüge benutzen. 
Gemeint sind damit die violetten Käst¬ 
chen auf jeweils einer Seite, mit denen 
Sie auf die andere Seite gelangen können. 
Die kleinen roten Kästchen sind die Ener¬ 
giepillen, die Sie aufsammeln sollten. 
Links oben wird Ihre Punktezahl ange¬ 
zeigt. Dort befindet sich aber auch noch 
ein kleines rotes Kästchen, welches sich 
von den anderen im Aussehen und in der 
Wirkung unterscheidet. Wenn Sie dieses 
Kästchen berühren, kommen Sie auf ein 
anderes Spielfeld, das der Computer mit 
dem Zufallsgenerator herstellt. Interes¬ 
sant wird das Spiel aber erst, wenn man 
immer alle Punkte nimmt. Viel Spaß 
beim Spielen und beim eventuellen An¬ 
dern des Programmes. 

(Harald Lerch/jb) 


• by Harald Lerch 

• A - 6020 Innsbruck 

CLEAR RESET 

SCREEN »1 GRAPHICS XVIRTUAL FIXEO.VV1RTUAL F1XE0 

WINDOW FULL 

WINDOW TIT LE"Ha r1-man" 

WINDOW OPEN 
OPTION OEGREES 
LABEL anfang 
CLS:CLEAR 

xe=XVIRTUAL/15ye=YVIRTUAL/10 
OIM xyf<20,20) 

GOSUB Vorspann 
LABEL Spielfeld 
FOR i=1 TO 15 
FOR 3 = 1 TO 10 
xyf(i,J)=0 
NEXT j 
NEXT 1 
CLS 

FOR 1=2 TO 12 
FOR 3=4 TO 8 

IF RND(3)=l THEN xyf(i,J)=l 

IF xyf(t,3)=l THEN BOX i*xe-xe;j*ye-ye,xe,ye FILL WH 
H 8 COLOUR 12 
NEXT 3 
NEXT i 

xyf(RND(13)+1.101=2 
xyf<RND<131+1.11=2 
xyf(1,RND(8)+1)=2 
xyf(15,RND(B)+1)=2 
FOR 1=1 TO 15 
FOR 3=1 TO 10 

IF xy f(i.3 > = 2 THEN BOX 1 *xe-xe;3 *ye-ye,xe,ye FILL WIT 
H B COLOUR 7:CIRCLE I *xe-xe/2;3 *ye-ye/2,xe/2 FILL WITH 
8 COLOUR 0 
NEXT 3 
NEXT 1 

FOR 1=1 TO 15 

FOR 3=1 TO 10 , 

IF xyf<1,3)=0 THEN xyftl,3)=3:PLOT 1*xe-xe/2;3*ye-ye/ 
2 MARKER 4 COLOUR 2 
NEXT 3 
NEXT 1 

PLOT xe/2;9.5*ye MARKER 3 COLOUR 2 
getstlx=15:geistly=l0 
geisl2x=15:goist2y=l 
1 $*"' 6 " 
yp= 1 

GOTO sp1el_beginn 


LABEL spiel 

l$=INKEY$:GOSUB geistl:GOSUB geist2:IF i$='"‘ THEN GOTO 
spl el 

LABEL spiel_beginn 
GOSUB geis11:GOSU8 geist2 
fx=xp:fy=yp 
IF fx=0 THEN fx=i 

IF geistlx=xp AND geistly=yp THEN GOTO verloren 

IF gelst2x=xp AND ge1st2y=yp THEN GOTO verloren 

IF i$="2" THEN yp=yp-l 

IF i $ ="8*' THEN yp=yp+l 

IF i$="6" THEN xp=xptl 

IF 1$="4" THEN xp=xp-l 

IF xp<l THEN xp=l 

IF xp >15 THEN xp=15 

IF yp<1 THEN yp=l 

IF yp>10 THEN yp=10 

IF xyf(xp,yp)=1 THEN xp=fx:yp=fy:GOTO spiel 
IF xyf<xp,yp)=2 THEN GOSUB 1ift 

IF xyf{xp,yp)=3 THEN xyf(xp,yp>=0:punkte=punkte+l 
PRINT AT(1;1) punkte 

IF Xp=l AND yp=10 THEN GOTO Spielfeld 

CIRCLE fx*xe-xe/2;fy*ye-ye/2,211.5 FILL WITH 8 COLOUR 0 
IF 1$="6" THEN CIRCLE xp*xe-xe/2;yp*ye-ye/2,205 PART 45 
,315 FILL WITH 8 COLOUR 11 

IF i$="4“ THEN CIRCLE xp*xe-xe/2;yp*ye-ye/2,205 PART 22 
5,135 FILL WITH 8 COLOUR 11 

IF 1$=“2" THEN CIRCLE xp*xe-xe/2;yp*ye-ye/2,205 PART 32 
0,225 FILL WITH 8 COLOUR 11 

IF i$="8" THEN CIRCLE xp*xe-xe/2;yp*ye-ye/2,205 PART 13 
5,45 FILL WITH 8 COLOUR 11 


GOTO spiel 
LABEL lift 

IF xp=1 THEN GOSUB 1i ft_l 1nks:RETURN 
IF xp=15 THEN GOSUB 11 ft_rechts :RETURN 
IF yp=l THEN GOSUB 1i ft_unten :RETURN 
IF yp=10 THEN GOSUB 11 ft_Oben :RETURN 
LABEL 1ift_l1nks 
FOR 1=2 TO 9 

IF xyf( 1 5,1 ) =2 THEN yp=1:xp=15 
NEXT 1 
RETURN 

LABEL 1ift_rechts 
FOR 1=2 TO 9 

IF xyf(1,1)=2 THEN yp=1:xp=l 
NEXT 1 
RETURN 

LABEL 11ft_unten 
FOR 1=2 TO 14 

IF xyf<1 ,10) = 2 THEN yp=10:xp=i 
NEXT 1 
RETURN 

LABEL 11f t_oben 
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FOR 1=2 TO 1« 

IF xyf< »,1)=2 THEN yp=l:xp=1 
NEXT 1 
RETURN 
LABEL geistl 

gelx=geistlx:gely=geistly 
LABEL geistlzug 
geistl=geistl+l 
IF gei3tl<10 THEN RETURN 
IF geistl=10 THEN geistl=0 
wähl 1=RND(6) 

ON wähl I GOTO 1,2,3,4.5,5 

1 IF gelstlxlxp THEN geistlx=geistlx-1:GOTO geistlzp 

2 IF geistly>yp THEN ge 1 st 1y=geistly-1:GOTO geistlzp 

3 IF geistlxtxp THEN ge 1 stlx=geistlx +1:GOTO geistlzp 

4 IF getstly<yp THEN gei s11y = ge1s11y+1:GOTO geistlzp 

5 IF wah11 = 5 THEN ge 1stly = geis11y + RNO(3 )-2 ELSE gei3tlx 
=geistlx+RND(3)-2 

LABEL geistlzp 

IF xyf(geistlx,geistly) = l OR xyf(geistlx,ge 1 st1y) = 2 OR 
ge1stlx>15 OR geistly>10 OR geistlxtl OR geistly<l THEN 
geistlx=gelx:geistly=gely:GOTO geistlzug 
GOSUB geistlzeig 

IF geistlx=xp ANO geistly=yp THEN GOTO verloren 
RETURN 

LABEL geistlzeig 

IF geistlx < >gelx OR ge 1s11y<>ge ly THEN SHAPE gelx=xe-xe 
♦10;gely*ye-ye* 10 ,gelx*xe- 10 ;gely*ye-ye+l 0 ,gelx*xe-xe/2 
;gely*ye-ye/4 FILL WITH 6 COLOUR 0:IF xyf(geix,geiy)=3 
THEN PLOT gelx»xe-xe/2;gely*ye-ye/2 MARKER(4 > COLOUR 2 
IF geist1x< >ge 1x OR getst1y<>ge1y THEN IF gelx=l ANO ge 
ly=10 THEN PLOT xe/2;9.5»ye MARKER(3) COLOUR(2) 

SHAPE ge1stlx*xe-xe+10;geistly»ye-ye+l0,geistlx*xe-10;g 
e1stly»ye-ye+10,geistlx*xe-xe/2;geistly*ye-ye/4 FILL WI 
TH 8 COLOUR 1 
RETURN 

LABEL ge ISt2 

ge 2 x=geist 2 x:ge 2 y=geist2y 
LABEL geist2zug 
ge 1 st 2 = geist 2 + 2 
IF ge 1St2 <10 THEN RETURN 
IF ge Ist2 = 10 THEN gel8t2 = 0 
wähl2=RNO(6) 

ON wah12 GOTO 10,20,30,40,50,50 

10 IF geist2x>xp THEN ge4s12x = ge1st2x-1:GOTO ge1st2zp 
20 IF geist2y>yp THEN geist2y=geIst2y-1:GOTO gelst2zp 
30 IF geist2x<xp THEN geist2x=geIst2x*1:GOTO getst2zp 
40 IF geist2y<yp THEN ge 1st2y = geist2y+I;GOTO ge1st2zp 
50 IF wähl 2 = 5 THEN geist2y=geist2y*RN0(3)-2 ELSE getot2 
x=ge13t2x+RND(3)-2 
LABEL ge1st2zp 

IF xyf(ge 1st2x,ge 1at2y) = 1 OR xyf(ge 1s12x,ge1s12y ) = 2 OR 
getst2x>15 OR ge1st2y>10 OR geist2x<l OR geist2y<l THEN 
geist2x=ge2x:ge1st2y=ge2y:GOTO ge1st2zug 
GOSUB geist2ze1g 

IF ge1st2x=xp AND geist2y=yp THEN GOTO verloren 
RETURN 

LABEL geist2zelg 

IF ge1st2x<>ge2x OR geist2y<>ge2y THEN SHAPE ge2x*xe-xe 
+ 10 ;ge 2 y*ye-ye+ 10 ,ge 2 x*xe-l 0 ;ge 2 y*ye-yeH 0 ,ge 2 x*xe-xe /2 
;ge2y*ye-ye/4 FILL WITH 8 COLOUR 0:IF xyf(ge2x,ge2y ) = 3 
THEN PLOT ge2x*xe-xe/2;ge2y*ye-ye/2 MARKER(4) COLOUR 2 
IF geist2x<>ge2x OR ge 1st2y<>ge2y THEN IF ge2x=l AND ge 
2y=10 THEN PLOT xe/2;9.5*ye MARKER(3) C0L0UR<2> 

SHAPE geist2x*xe-xe+10;9e1st2y*ye-ye+10,geist2x*xe-10|g 
eist2y*ye-yc+10,geist2x*xe-xe/2;ge Ist2y*ye-ye/4 FILL WI 
TH 8 COLOUR 1 
RETURN 

LABEL Vorspann 

CIRCLE XVIRTUAL/2;YVIRTUAL/2,XVIRTUAL/4 PART 45,325 FIL 
L WITH 8 COLOUR 11 

CIRCLE XVIRTUAL/2+200;YVIRTUAL/2+YVIRTUAL/4-200,400 FIL 

L WITH 8 COLOUR 4 

PRINT AT(45;II("programmed by" 

PRINT AT(45;12>"Harald Lerch" 

FOR J=1 TO 35 STEP 4 

CIRCLE XVIRTUAL/2;YVIRTUAL/2,XVIRTUAL/4 PART 325,325+J 
FILL WITH 8 COLOUR 11 

CIRCLE XVIRTUAL/2;YVIRTUAL/2.XVIRTUAL/4 PART 45-j,45 F 
ILL WITH 8 COLOUR 11 
NEXT J 

FOR j=33 TO 1 STEP -1 

CIRCLE XVIRTUAL/2;YVIRTUAL/2,XVIRTUAL/4 PART 325+J,0 F 
ILL WITH 8 COLOUR 0 

CIRCLE XVIRTUAL/2;YVIRTUAL/2,XVIRTUAL/4 PART 0,45-J FI 
LL WITH 8 COLOUR 0 
NEXT j 

FOR j=l TO 5 
FOR 1=0 TO 10 

BOX XVIRTUAL/10*1;4900,XVIRTUAL/10,100 FILL WITH 8 CO 
LOUR RND(15) 

BOX XVIRTUAL/1041;0,XVIRTUAL/10,100 FILL WITH 8 COLOU 
R RND(15) 

NEXT 1 
NEXT J 
RETURN 

LABEL verloren 

PRINT AT(25;12) P0INTS(20) MOOE(3>"Game Over" 

REPEAT:taste$=INKEY$:UNTIL taste$=“ " 

CLS 

PRINT POINTS(20) AT(3;3) punkte 
GOSUB Vorspann 
GOTO anfang 
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Farbenpracht 

VGA-Standard 

auf dem PC 1640 von Amstrad 

Als die ersten PC auf dem Markt erschienen, dachte noch keiner daran, sie 
serienmäßig mit einer Grafikkarte auszurüsten. Die Preise waren einfach zu 
hoch. Erst nach und nach wurden spezielle Grafikplatinen für diese 
Rechner entwickelt, deren Auflösung so manchem heute nur noch ein 
müdes Lächeln abringt. Inzwischen ist die Technik so weit vorgedrungen, 
daß man gleichzeitig 256 Farben auf dem Bildschirm zum Leuchten bringt 
— VGA heißt das Schlagwort. Die neuen Amstrad PCs werden zum Beispiel 
serienmäßig mit einer Multifunktionskarte (auch für VGA) ausgeliefert, 
was aber nicht heißt, daß PC-1640-Besitzer darauf verzichten müssen. 


Was der Begriff ‘VGA-Standard 1 be¬ 
deutet, weiß wohl inzwischen fast jeder 
PC-Besitzer. Trotzdem hier noch ein¬ 
mal eine kleine Erklärung: VGA heißt 
Video Graphics Adapter und verheißt 
hohe Auflösung und große Farben¬ 
pracht. Ein IBM PS/2 Modell ist nun 
für diesen Standard schon längst nicht 
mehr notwendig. 

Auch jeder andere IBM-oder kompati¬ 
ble PC kann VGA-fähig werden, in¬ 
dem Sie für Ihren PC eine entsprechen¬ 
de (8-Bit für PC/XT, bzw. 16 Bit für 
ATs) VGA-Grafikkarte beschaffen. 

Beim Einsatz des VGA machen sich 
gleich mehrere Vorteile bemerkbar. 
Da ist nicht nur der Einsatz der 256 
Farben von insgesamt 256000, sondern 


auch die höhere Auflösung, die eine 
wesentlich bessere Bildqualität bietet. 

Der Einbau ist nicht schwer... 

Für die VGA-Grafik ist keinerlei spe¬ 
zielle PC-Hardware erforderlich. Sie 
ist zum Monochrom-Adapter (MDA) 
sowie zu der CGA- und EGA-Karte 
kompatibel, damit läuft sämtliche Soft¬ 
ware unter der Grafikkarte. Da VGA 
nur mit analogen Signalen arbeitet, ist 
eine hohe Farbenpracht möglich. Ana¬ 
loge Bildsignale enthalten vielmehr 
Farbinformationen (Bild 1) als digitale 
Bildsignale. 

Doch die VGA-Grafik kann noch 
mehr, als nur die Text- und Grafikmodi 


der MDA, CGA und EGA Karten emu¬ 
lieren. So stellt die VGA-Grafik in 
allen Textmodi ASCIl-Zeichen grund¬ 
sätzlich mit einer Matrix von 9*16 
Bildpunkten dar. Das heißt, jedes 
ASCIl-Zeichen ist aus 144 Bildpunkten 
zusammengesetzt. Zum Vergleich 
benutzt CGA nur 64, EGA 112 und 
die Monochromgrafikkarte 126 Bild¬ 
punkte pro Zeichen. Um diesen Stan¬ 
dard nun auch auf Ihrem Amstrad PC 
1640 laufen zu lassen, ist ein nur klei¬ 
ner aber etwas kostspieliger Umbau 
notwendig. 

Da wäre zuerst die VGA-Karte selbst 
notwendig. Der Preis für diese Grafik¬ 
platinen kann von ca. 600,- DM an 
aufwärts und nach oben hin fast unbe¬ 
grenzt offen sein. 

Wenn‘s der Monitor 
nicht tut... 

Weil allerdings diese Karte, wie schon 
erwähnt, nur mit analogen Signalen 
statt mit digitalen Bildsignalen arbeitet, 
ist auch ein Monitor erforderlich, der 
Analogsignale verarbeiten kann. Wer 
schon einen Multiscan-Monitor be¬ 
sitzt, braucht sich keine Kopfschmer¬ 
zen mehr zu machen, denn diese Moni- 
tore besitzen einen Analogeingang und 
können die Signale der VGA-Grafik 
problemlos verarbeiten. Alle anderen 
Monitortypen mit Eingängen für digi¬ 
tale Bildsignale, wie z.B. der Monitor 
Ihres 1640, verkraften die VGA-Si- 
gnale dagegen nicht. In diesem Fall ist 
zusätzlich zum Kauf der VGA-Steck- 
karte auch ein Monitor mit analogen 
Eingängen erforderlich. 

Sollten Sie sich nun trotzdem zum Kauf 
dieser benötigten Teile entschieden 
haben (im Vertrauen: Es lohnt sich 
wirklich!), ist es leider notwendig, den 
alten Monitor des 1640 zu behalten, da 
dieser das Netzteil für Ihren Rech¬ 
ner enthält. Elektroniker und einge¬ 
fleischte Transistorenkenner werden 
hierbei jedoch auch keine Probleme 
haben, ein entsprechendes Netzteil auf, 
bzw. das des Amstrad-PC auszubauen 
und sich extern danebenzustellen. Ach¬ 
tung! Bitte bei solchen Experimenten 
immer daran denken, daß die Netz¬ 
spannung eine große Rolle bei Netztei¬ 
len spielt. Hier herrscht bei unsachge¬ 
mäßer Handhabung unter Umständen 
Lebensgefahr! 

Sollte sich jemand für ein neues Netz¬ 
teil entscheiden, wäre ein AT-Netzteil 
zu empfehlen, da Ihr eingebautes PC- 
Netzteil eine Konfiguration mit einer 
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Abb. I: Die VGA-Kurien haben die Möglichkeit, bis zu 256 Farben gleich- Abb. 2: Die DIP-Schalter des FC 1640 sind beim Einsatz der VGA-Graßk- 

zeilig aus einer Palette von 256000 Farben darzustellen. karte wie im Bild abgebildet einzustellen. 


Festplatte, zwei Diskettenlaufwerken 
und einer VGA-Karte nicht lange ver¬ 
kraften würde. Inzwischen werden 
auch externe Netzteile von einigen Fir¬ 
men angeboten, hierbei sollte man aber 
auch auf die Leistungsabgabe dieser 
Geräte achten, um nicht plötzlich im 
Regen zu stehen. Wir haben einen PC 
1640 einem 40-stündigen Dauertest un¬ 
terzogen, wobei er öfters in Streik trat, 
im Gegenteil zum Versuch mit einem 
stärkeren Netzteil, bei dem der PC 
dann diesen Test locker und ohne Pro¬ 
bleme ausgehalten hat. 

Nachdem die Stromversorgung geklärt 
ist, nehmen Sie Ihre neuerworbene 
VGA-Karte und stecken diese in einen 
der noch freien Erweiterungssteckplät¬ 
ze Ihres PC 1640. Schließen Sie nun 
noch die Karte an den analogen Moni¬ 
tor an und nehmen Sie eine Korrektur 
an der Stellung der DIP-Schalter des 


PCs vor. Die DIP-Schalter sind dabei 
(wie auf Bild 2 zu sehen ist) einzu¬ 
stellen. 


Die DIP-Schalter auf der Rückseite 
Ihres PCs 

DIP 1 OFF DIP 6 ON 
DIP 2 ON DIP 7 ON 
DIP 3 ON DIP 8 ON 
DIP 4 OFF DIP 9 OFF 
DIP 5 OFF DIP 10 ON 


Die Änderung an der Stellung der Dip¬ 
schalter ist notwendig, um den internen 
Grafikadapter IGA abzustellen und auf 
einen externen Grafikadapter, wie un¬ 
sere VGA, zurückzugreifen. Sie dürfen 
auf gar keinen Fall vergessen, den in¬ 
ternen Grafikadapter durch DIP-Schal¬ 
ter 10 abzuschalten, da sonst der PC 
zwischen den beiden Grafikkarten hin- 


und herspringen würde und so keine 
Bilder zustande kämen. Näheres über 
den IGA erfahren Sie auch in Ihrem 
mitgelieferten Handbuch. 

Nach diesem kleinen Umbau sind Sie 
nun voll mit dem neuen VGA-Standard 
ausgerüstet und stehen einem Amiga 
oder Atari ST in bezug auf Grafik in 
(fast) nichts mehr nach (Bild 3). 

Ihr PC ist nun zu einem weitaus besse¬ 
rem Grafikcomputer geworden, als er 
vorher war. In Zukunft wird auch der 
VGA-Standard softwaremäßig immer 
mehr unterstützt. Das wird wohl eines 
Tages dazu führen, daß die VGA-Karte 
die EGA-Grafik ablösen wird, wie zu¬ 
vor EGA den CGA-Standard ersetzt 
hat. 

Aber jetzt genießen Sie erst einmal die 
Farbenpracht. 

(Stefan Achilles/jb) 




Abb. 3: Das wohl bekannteste Bild auf dem Amiga, der Ägypterkönig Tut- 
Ench-Amun. wirkt durch Einsatz der VGA-Grafik fast Amiga-ähnlich. 


Abb. 4: In der Vergrößerung sieht man die Farbschattierungen, die VGA 
zu bieten hat. 


4’89 PC 93 

































[-PC 



Rechenmeister 

Ein kleines Programm für große Aufgaben 


Wie so oft, wollen wir Ihnen auch heute ein kleines Programm für den 
täglichen Gebrauch bieten. Mathematik kommt in unserem Leben so häufig 
vor, daß wir es selbst gar nicht mehr bemerken. Aus diesem Grund finden 
Sie hier ein Programm, das die am meisten vorkommenden komplexeren 
Rechenarten behandelt. 


Bei MATHE-MASTER handelt es 
sich, wie der Name schon sagt, um ein 
Mathematikprogramm. Am Anfang 
kann man unter vier Menüpunkten aus¬ 
wählen: 

1. Potenzieren/Radizieren 

2. Multiplikation/Division 

3. Addition/Subtraktion 

4. Quadratzahlen 


Zu 1.: 

Man wählt Potenzieren oder Radizie¬ 
ren, danach gibt man die Zahlen ein, 
die potenziert bzw. radiziert werden 
sollen. Der Computer errechnet dann 
die Lösung. 

Zu 2.: 

Hier wählt man zwischen Multiplika¬ 
tion oder Division, nach Eingabe zwei¬ 


er Zahlen (durch ein Komma getrennt) 
wird das Ergebnis berechnet. 

Zu 3.: 

Nach der Wahl zwischen Addition oder 
Subtraktion gibt man zwei Zahlen 
durch ein Komma getrennt ein, alles 
weitere macht unser ‘Taschenrechner*. 

Zu 4.: 

Zuerst muß man die Zahl eingeben, bis 
zu der man quadrieren will. Dann er¬ 
rechnet der Computer die Lösungen bis 
zu der Zahl, die man eingegeben hat. 

(Alexander Wolbert/jb) 



LABEL anfang 

SCREEN #1 GRAPHICS:WINDOW #1 FULL ON 

WINDOW *1 TITLE"*** wrltten by Alexander Wolbert * 


PRINT COLOUR(4);FONT(2);ADJUST(28);" 

MATHE-MASTER” 

PR INT:PRINT:PRINT:PR INT 

PRINT COLOUR(2);FONT( 2) ;AOJUST(20);“ Pote 

nzleren / Radizieren.[1]" 

PRINT:PRINT CO LOUR(2);FONT(2>;AOJUST(20 ) ;" 

Multiplikation / Division.12]" 

PRINT:PRINT CO LOUR(2);FONT(2>;AOJUST(20);“ 

Addition / Subtraktion.[3]" 

PRINT:PRINT C0L0URC2);FONT(2);AOJUST(20 ) ;“ 

Quadratzahlen. ..[ 

4J" 

PRINT:PRINT:PRINT COLOUR(3)jFONT(2),AOJUST«18>;“ 
Bitte wählen Sie ! ! ! *' 

LABEL a 
a$=INKEY$ 


Listing Rechenmeister 


IF a$="1" THEN GOTO pr 
IF a$="2" THEN GOTO dm 
IF a$=“ 3" THEN GOTO sa 
IF a$=“4" THEN GOTO en 
IF a$= - "' THEN GOTO a 

IF a$< > ” 1" OR a$<> "2 ” OR a$<>"3" OR a$<>"4" THEN 
GOTO a 

IF a$<“l" OR a$>"4” THEN GOTO a 
REM 

LABEL pr 
CLS 

PRINT COLOUR«10);F0NT<2>;ADJUST(28);" POTENZIE 

REN / RAOIZIEREN" 

PRINT:PRINT:PRINT:INPUT“ (P)oten 2 1eren / 

(R)adizieren:".w$ 

IF w$="p" THEN GOTO p 
IF w$=”r" THEN GOTO r 
LABEL p 

PRINT:PRINT:PRINT 


Listing Rechenmeister 
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INPUT" Geben Sie die Basiszahl und den Exponent 

en ein:",b,e 

e=b'e 

PRINT:PRINT COLOUR(7);FONT(2>;ADJUST(18 ) ;“ Das Erg 
ebnla 1autet: ";e 

PRINT:PRINT" Bitte die Leer-Taste drücken 111" 

LABEL t 
t$=INKEY$ 

IF t$="" THEN GOTO t 
IF t$=" " THEN GOTO anfang 
LABEL r 

PRINT:PRINT:PRINT 

INPUT" Geben Sie den Radikanten ein:",t 

el=SQR(t) 

PRINT:PRINT COLOUR(7>;FONT(2 ) ;AOJUST<18>;" Das Erg 
ebnls lautet: ";el 

PRINT:PRINT“ Bitte die Leer-Taste drücken lll“ 

LABEL w 
t$=INKEY$ 

IF t$="" THEN GOTO w 

IF t$=" " THEN GOTO anfang 

LABEL dm 

REM 

CLS 

PRINT COLOUR(10); FONT(2);ADJUST C 2 8) J ” Multipli 

katlon t Division" 

PRINT:PRINT:PRINT 

INPUT" (M)ultlpl1kation / (D)ivislon: “,dm$ 

IF dm$=”m" THEN GOTO m 
IF dm$="d" THEN GOTO d 
LABEL m 

PRINT:PRINT:PRINT 

INPUT“ Geben Sie die beiden Faktoren ein: ",fl 

. f2 

e2=f1» f2 

PRINT:PRINT COLOUR(7);FONT(2);ADJUST(18);" Das Erg 
ebnls lautet: ";e2 

PRINT:PRINT" Bitte die Leer-Taste drücken !!!" 

LABEL w 

t$=INKEY$ 

IF t$="" THEN GOTO w 
IF t$=" “ THEN GOTO anfang 
LABEL d 

PRINT:PRINT:PRINT 

INPUT" Geben Sie den Dlvldent und den Divisor 

ein: ",dl,d2 

e3=dl/d2 

PRINT:PRINT COLOUR<7);FONT<2);ADJUST(16);" Das Erg 
ebnls lautet: ";e3 

PRINT:PRINT" Bitte die Leer-Taste drücken ! 31" 

LABEL t 

W$=1NKEY$ 

IF *$ = ■"' THEN GOTO t 

IF w$ = “ * THEN GOTO anfang 

LABEL sa 

REM 

CLS 

PRINT COLOUR(10);FONT(2);ADJUST(28);" Addition 

/ Subtraktion" 

PRINT:PRINT:PRINT 

INPUT" <A)ddition / CS)ubtrakt1on:",w$ 

IF w$="a" THEN GOTO al 
IF w$=“s“ THEN GOTO s 
LABEL al 

PRINT:PRINT:PRINT 

INPUT" Geben Sie die beiden Summanden ein: ",s 

1, s2 

eA=sl+s2 

PRINT;PRINT COLOUR(7);FONT(2);ADJUST(10);" Das Erg 
ebnls lautet: ";e4 

PRINT:PRINT" Bitte die Leer-Taste drücken !!!" 

LABEL t 

wS=INKEYt 

IF w$="“ THEN GOTO t 
IF w$=" “ THEN GOTO anfang 
LABEL s 

PRINT:PRINT:PRINT 

INPUT" Geben Sie den Minuend und den Subtrahen 

d ein: " , m, s 

e5=m-s 

PRINT:PRINT COLOUR<71 ;F0NT(2);ADJUST(18);" Das Erg 
ebnis 1autet: ";e5 

PRINT:PRINT" Bitte die Leer-Taste drücken III" 

LABEL t 

w$=INKEY$ 

IF w$="" THEN GOTO t 

IF w$=" " THEN GOTO anfang 

LABEL en 

REM 

CLS 

PRINT COLOUR(10);FONT(2);ADJUST(28);“ Quadratz 

ahlen" 

PRINT : PRINT : PRINT 

INPUT" Bis zu welcher Zahl quadrieren? “,z 

PRINT:PRINT 

FOR a=l TO z 

PRINT a,a*2 

NEXT 

PRINT:PRINT” Bitte die Leer-Taste drücken !!!" 
LABEL 1 
1$=INKEY$ 

IF 1$="" THEN GOTO 1 

IF 1$=“ " THEN GOTO anfang 

END 



Telespielsensation: 

- Neue Abenteuer 

für Mario & Luigl j 

ln Super Mario Bros. 11 J 


Machen Sie doch 
Ihre eigenen Comics! 


Spherical: 


- Strategiespiel 
einer neuen Dimension 


Consumer 
Electronic Show 


- ln Las VegasI 
Glamour Games 
und Sensationen? 


Die Anwendung: 


Nichts für Langeweiler 


Auf dem Computer 
eröffnet sich eine neue 
Dimension des Spielens. 

Begleiten Sie JOYSTICK 
in die abenteuerlichen 
und lustigen Welten des 
Computerspiels. 

Ob Sie nun Geister 
durch ein Labyrinth 
jagen oder lieber die 
Weiten des Weltraums 
unsicher machen... 

Ob Sie garstige Magier 
bekämpfen oder lieber 
einen Fußballverein 
managen.... 

JOYSTICK, das Magazin 
für Computerspieler: 
Reviews, Tips, Stories, 
Berichte und 
Lösungshilfen. 

Eben alles, was 
Computern Spaß macht! 



Listing Rechenmeister 
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- den Hercules besiegen 
CGA-Emulator für den PC 


Viele Programme laufen auf der Hercules-Grafikkarte nicht, weil diese nur 
die Color-Grafikkarte unterstützen. Dieses Problem betrifft nicht nur Spiel- 
programme, sondern in gleichem Maße Turbo-Pascal-Grafik, Basic-Grafik 
und viele professionelle Programmpakete. 


Für ca. 50,- DM ist das Problem 
recht einfach zu lösen: VastScreen ist 
ein RAM-residentes Programm zur 
Emulation der Color-Grafikkarte in 
Verbindung mit der Hercules-(oder 
kompatiblen) Monochrom-Grafik¬ 
karte. 

Die Emulation erfolgt in Echtzeit, das 
heißt die Programme laufen in der glei¬ 
chen gewohnten Geschwindigkeit ab. 
VastScreen ist vollständig in Assem¬ 
bler geschrieben und belegt nach der 
Installation etwa 2 KByte im Haupt¬ 
speicher. 

Die Installation des deutschen Pro¬ 
grammes ist denkbar einfach. Der ein¬ 
malige Aufruf des Programmes “VS“ 
genügt, und die Emulation steht dauer¬ 
haft zur Verfügung. 

Voreingestellt ist eine Auflösung von 
640 x 300 dots (double-scan). 


Ein Modus kommt selten allein 

Das Programm kann aber wesentlich 
mehr als herkömmliche Emulationen 
dieser Art (MG, HG oder andere). 
Neben der Standardeinstellung gibt es 
fünf weitere Modi, welche angewählt 


werden können mit dem Programmteil 
SETUP: 

Modus 1, 640 x 200 dots 
Modus 2, 640 x 300 dots 
Modus 3, 640 x 300 dots double scan 
Modus 4, 640 x 400 dots 
Modus 5, 640 x 400 dots interlaced 
Modus 6, 640 x 400 dots double scan 
“Double scan“ verbessert dabei die be¬ 
kannt schlechte Aullösung der CGA- 
Karte um das 1,5-fache. 

SETUP kann mit einem Parameter auf¬ 
gerufen werden, um den gewünschten 
Modus einzustellen. SETUP /3 setzt 
beispielsweise den dritten Modus. Für 
das erste Arbeiten mit VastScreen und 
zum Ausprobieren ist der Aufruf SET¬ 
UP ohne Parameter hilfreich, da hier¬ 
bei ein Menü erscheint, mit dessen Hil¬ 
fe die einzelnen Modi ausprobiert wer¬ 
den können. Nach Anwahl des jeweili¬ 
gen Modus erscheint ein Testbild, mit 
dem die Darstellungsart überprüft wer¬ 
den kann. Nicht jeder Modus funktio¬ 
niert einwandfrei mit jedem Monitor, 
daher ist das Ausprobieren notwendig 
und erleichtert die Entscheidung für ei¬ 
nen der angebotenen Modi. Man sollte 
sich vor der Verwendung eines be¬ 
stimmten Emulationsmodus in jedem 
Fall davon überzeugen, daß der Moni¬ 
tor ein einwandfreies Bild erzeugt. 

Bei einigen Programmen ist es notwen¬ 
dig, vor dem Start den zur Verwen¬ 
dung kommenden Videomodus ein/.u- 
stellen (beispielsweise bei Basic oder 
kompilierten Basic-Programmen, 
wenn Grafikbefehle angewendet wer¬ 
den). Der Befehl SETMODE /n stellt 
einen bestimmten Videomodus ein 
(von acht möglichen). Durch die Ver¬ 
wendung von Parametern beim Aufruf 
von SETUP und SETCOM ist es mög¬ 
lich. diese in BATCH-Dateien einzu¬ 
binden und deren Aufruf mit bestimm¬ 
ten Anwenderprogrammen zu koppeln: 
SETUP 13 
SETCOM 12 
BASICA 



Abb. 1: Die verschiedenen Modi des VastScreen-Programmes machen sich auch in den Hardcopies 
bemerkbar, hier in Modus 2 (640*300 Pixel)... 
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Ito 


oder 

SETUP // 

SETCOMII 
CHESS 

Viele Programme lassen sich in jedem 
Modus starten (beispielsweise Turbo 
Pascal). Im Zweifelsfall muß ein wenig 
experimentiert werden, bis die passen¬ 
de Einstellung gefunden ist. 

VastScreen stellt folgende Video-Modi 
bereit: 

0. 40 x 25 Zeichen Schwarzweiß- 
Textmodus 

1. 40 x 25 Zeichen Farbtextmodus 

2. 80 x 25 Zeichen Sch warzweiß- 
Textmodus 

3. 80 x 25 Zeichen Farbtextmodus 

4. 320 x 200 Pixel Farbgrafikmodus 

5. 320 x 200 Pixel Schwarzweiß- 
Grafikmodus 

6. 640 x 200 Pixel Schwarzweiß- 
Grafikmodus 

7. 80x25 Monochrom-Textmodus 

Auch für Programme, welche direkt 
und nur vom Laufwerk A: gebootet 
werden müssen, da sie aus Gründen 
des Kopierschutzes kein DOS-konfor- 
mes Diskettenformat verwenden, bie¬ 
tet VastScreen Hilfen an. Für sie kann 
gleichermaßen die Color-Grafikkar- 
ten-Emulation durchgeführt werden, 
wie oben beschrieben. 

Für solche Fälle gibt es den Befehl 
BOOT. Dabei ist wie folgt vorzu¬ 
gehen: 

1. DOS booten 

2. VastScreen einladen mit VS 

3. eventuell mit SETMODE den 
Bildschirmmodus einstellen 

4. durch Aufruf von A:BOOT das Pro¬ 
gramm BOOT auf rufen, 

5. Diskette in das Laufwerk A: einlegen 
und durch Tastendruck bestätigen. 

Eine kleine Besonderheit ist hierbei zu 
beachten: Außer VastScreen sollte sich 
kein anderes residentes Programm im 
Speicher befinden (KEYBGR, SIDE- 
KTCK usw.). 

Da einige DOS-Versionen residente 
Treiberroutinen installieren, kann es 
( bkrhei vereinzelt zu Schwierigkeiten, 
j insbesondere bei DOS 3.2 und 
DOS 3.3 kommen. Erscheint beim 
| Aufruf von BOOT ein entsprechender 
Hinweis auf andere speicherresidente 


Abb. 2: ...und Modus 3, ebenfalls 640*300 Pixel, jedoch mir 'double scan ’... 


Für fortgeschrittene Anwender bietet 
VastScreen eine weitere Möglichkeit: 
XBOOT rekonstruiert vor dem Booten 
der Diskette die BlOS-lnterrupt-Vek¬ 
tortabelle, so daß residente Programme 
und DOS-Routinen automatisch ent¬ 
fernt werden und somit die oben be¬ 
schriebenen Schwierigkeiten nicht auf- 
treten. Bevor XBOOT zum erstenmal 
verwendet werden kann, muß es zu¬ 
nächst an den Rechner angepaßt wer¬ 
den. Dies geschieht mit Hilfe des Be¬ 
fehls XBINST. 

So wird es gemacht: 

Von der DOS-Ebene wird zunächst 
XBINST geladen. XBINST und 
XBOOT müssen dabei im gleichen 
Verzeichnis des Direktory stehen. An¬ 
schließend hat man die Möglichkeit, 
die angezeigten Interrupt-Vektoren an 
das BIOS anzupassen. Falsche Werte 
führen allerdings zwangsläufig zum 
Absturz des Rechners, wenn anschlie¬ 
ßend XBOOT aufgerufen wird. Aus 
diesem Grunde ist diese Methode wirk¬ 
lich nur für Fortgeschrittene geeignet. 
Doch auch der Anfänger kann es hier¬ 
mit probieren, wenn er sicher ist, daß 
sein Rechner wirklich IBM-kompatibel 


ist. XBOOT ist serienmäßig so vorein¬ 
gestellt, daß in diesen Fall ein Absturz 
des Systems nicht zu erwarten ist. 

Das weitere Vorgehen ist analog zu 
dem mit BOOT; anstelle von BOOT 
muß lediglich XBOOT aufgerufen 
werden. 

Fazit 

VastScreen gehört zu den besten Co- 
lor-Grafik-Emulationen für die Hercu- 
les-Karte, welche es zur Zeit auf dem 
Markt gibt. Zu der Flexibilität bei der 
Einstellung und Auswahl verschiede¬ 
ner Betriebsarten (Modi) und dem gün¬ 
stigen Preis von 49,— DM kommt ein 
hohes Maß an Betriebssicherheit und 
die Möglichkeit, kopiergeschützte Di- 
rekt-Boot-Programme mit dieser Emu¬ 
lation laufen zulassen. 

Im Preis inbegriffen ist eine deutsche 
Dokumentation in Form einer ASCII- 
Datei (READ.ME). Zudem wird tele¬ 
fonische Unterstützung angeboten. 
Lieferanschrift: 

Fa. DawiControl GmbH 
Leinestraße 36, 

3400 Göttingen 

(Oliver Rosenbaum/jb) 


eine eventuell äl- 
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Programmierer aufgepaßt! 
DMV bringt jetzt: 


Neue Vielfalt! 



Das Buch zu BASIC2 

PCl512/1640-Besitzer können aufatmen. 

Jetzt ist sie da, die BASIC2-Toolbox. Mit die¬ 
sem einzigartigen Buch sind Sie nun in der 
Lage, das Locomotive BASIC2 besser auszu¬ 
nutzen, die Programmierung wird zum Kin¬ 
derspiel. 

Die BASIC2-Toolbox bietet nicht die x-te Ein¬ 
führung, sondern gibt anhand leistungsstar¬ 
ker und praxisorientierter Routinen und Pro¬ 
gramme den nötigen Durchblick. 

Schritt für Schritt lernen Sie die strukturierte 
Programmentwicklung bis hin zum fertigen 
und lauffähigen Programm. Der Text ist in 
leicht und für jedermann verständlicher 
Form geschrieben, der Lerneffekt ist quasi 
garantiert. Alle Beispielprogramme sind so¬ 
fort nachvollziehbar und stammen aus der 
täglichen Anwendungspraxis. 

Einige Beispiele aus dem Inhalt: 

Kurze Einführung in die Software-Entwicklung 

- Grundlagen und Struktogramme 
Werkzeuge für BASIC2 

- Lister ermöglicht die formatierte Druckausgabe für 
BASIC2-Programme 

- COMP komprimiert Ihre BASIC2-Programme 

- Preprozessor für Include-Dateien 

- Cross ist ein Generator zur Erzeugung von Quer¬ 
verweislisten 

Werkzeuge zur Behandlung von Textdateien 

- Auswertung von Word-Textdateien 

- CUT, ein Filter für Textdateien 

- PASTE,Vereinigung von Textdateien 
Werkzeuge zur Software-Entwicklung 

- CALC, ein Rechner für verschiedene Zahlensy¬ 
steme 

- DUMP, Ausgabe beliebiger Dateien im Hexformat. 

- COMHEX, Umwandlung von COM-Dateien in 
HEX-Files 

Ein kompletter Disassembler für den Intel 8086 

- Von der Struktur zum fertigen Programm. 

Ein Disassembler wird programmiert. 


Die BASIC2-Toolbox 

Autor: Günter Born, 

250 Seiten, 54 Abb., 

ISBN Nr. 3-926177-01-2 (Best.-Nr. 402) 


Inland: 

Einzelpreis 49,- DM 

zzgl Versandkosten 3 ,- DM 

Endpreis 52.- DM 


Ausland: 

Einzelpreis 19 ,- DM 

zzgl Versandkosten 5 , DM 

Endpreis 54,- UM 


Zu beziehen über den Computerfachhandel, 
den guten Fachbuchhandel oder direkt beim 
Verlag. Händleranfragen erwünscht. 

Bitte benutzen Sie unsere Bestellkarte 

DMV-Verlag 

Postfach 250 ■ 3440 Eschwege 


CPC Bücherkiste 


AUS DEM SYBEX-ANGEBOT 

Einführung in Wordstar 

Der Bestseller zum populärsten lextverarbeitungsprogramm 
würde tür die Besitzer des CPC überarbeitet und damit wichti¬ 
ge Hille und Nachschlagewerk bei der Arbeit mit Wordstar und 
MailMerge auf dem CPC Neben der klaren Einführung in den 
effektiven Umgang mit Wordstar gibt es u.a auch wertvolle Hin¬ 
weise für die Installation von Druckern und zu Systempatches. 
280 Seiten/40 Abb. Best.-Nr. 421 DM 42,-* 


Arbeiten mit dBase II 

dBase II ist im PC-Bereich wohl einesder leistungsstarksten Da¬ 
tenbankprogramme Benutzern eines Schneider CPC vermittelt 
ein echter Experte in diesem Buch alle Kenntnisse, die für den 
erfolgreichen Einsatz von dBase II wichtig sind. Z B. Installation 
von und Programmieren mit dBase II, Editieren von Dateien mit 
Wordstar, Tips und Tricks Jeder Lernschritt wird durch praxis¬ 
gerechte Beispiele ergänzt. Und zwar so. daß dem Leser die Um¬ 
setzung dann wirklich problemlos möglich ist. Ein Buch, das in 
]eder Ärbeitsphase weiterhiltt. 

272 Seiten/mit Abb. Best.-Nr. 422 DM 48,-* 


Schneider CPC - Arbeiten mitdBASEII 

Benutzern eines CPC vermittelt ein echter Experte In diesem 
Buch alle Kenntnisse, die für den erfolgreichen Einsatz von 
dBASE II wichtig sind, z.B : Installation und Programmieren mit 
dBASE II. Editieren von Dateien mit Wordstar Tips und Tricks 
Jeder Lernschritt wird durch praxisgerechtc Beispiele ergänzt. 
Und zwar so, daß dem Leser die Umsetzung dann wirklich pro¬ 
blemlos möglich Ist. Ein Buch, das in |eder Arbeitsphase weiter¬ 
hilft. 

227 Seiten/mit Abb. Best.-Nr.: 440 DM48,-* 


Schneider CPC - Arbeiten mit Turbo Pascal 

Der Bestseller “Das Turbo Pascal Buch“ wurde speziell für Be¬ 
sitzer eines CPC überarbeitet So ermöglicht es den optimalen 
Einsatz der leistungstähigen Programmiersprache aut die 
CPC-Arbeits und Syslemumgebung zugeschnitten - und 
durch zusätzliche Informationen ergänzt Zahlreiche Beispiele 
veranschaulichen die vorgestellen Programmierkonzepte, Übun¬ 
gen zu jedem Kapitel machen dieses leicht verständlich ge¬ 
schriebene Buch tür Einsteiger zur unentbehrlichen Arbeitshilfe 
296 Seiten/mit Abb. Best.-Nr.: 441 DM48,-* 


Das Schneider CPC Grafikbuch 

Die vielfältigen Gralikmoglichkeiten Ihres Schneider CPC (464. 
664 und 6128) Von einer allgemeinen Einführung über orgän 
zende Grafikbefehle, Erstellung von Graliken mit dem Joystick, 
Darstellung zwei- und dreidimensionaler Diagrammformen, 
künstlerische Grafiken, Zusammenspiel zwischen Gralik und 
Datenträger bis hin zur Hardcopy. 

328 Seiten/zahlr. Abb. Best.-Nr.: 442 DM 48.-* 


Schneider CPC Erfolg mit Multiplan 

Ein didaktisch hervorragendes Lehrbuch und Nachschlagewerk 
für CPC-Besitzer, die das Tabellenkalkulationsprogramm anwen¬ 
den wollen. Das Buch ist die überarbeitete, aut den CPC zuge¬ 
schnittene Version des Bestsellers "Erfolg mit Mulliplan“ und 
fuhrt Schrill lür Schritt in das Programm ein An konkreten 
Beispielen wird erklärt weichen Nutzen CPC-Besitzer mit Mul- 
tiplan in der Praxis haben. 

200 Seiten/ca. 45 Abb. Best.-Nr.: 445 DM 48,-* 


Schneider CPC Assembler-Kurs 
(Buch mit Diskette) 

Das Buch führt Sie schrittweise in die Programmierung des Z80 
ein und vermittelt Ihnen Befehlssatz des Prozessors wie Adres¬ 
sierungsarten Sie lernen anhand vieler Beispiele selbst nütz¬ 
liche Routinen zu entwickeln und vorhandene Hilfsroutinen für 
Ihre Zwecke einzusetzten; dazu werden Ihnen Programme zur 
Erweiterung des Betriebssystems mit grafischen Befehlen vor¬ 
gestellt 

Die begleitende Diskette enthält einen Z80-Assembler, mit dem 
Sie selbst Programme entwickeln und testen können. 

Buch und Kassette Best.-Nr.: 446 DM59,-* 

Buch und Diskette Best.-Nr : 447 DM69,-* 


AUS DEM DATA-BECKER-ANGEBOT 
Das Floppybuch zum CPC 

Was man alles aus der DDI-1 des CPC 464, CPC 664 und CPC 
6128 holen kann, zeigt dieses Buch aut eindrucksvolle Weise. 
Neben den notigen Erklärungen und einem ausführlichen DOS- 
Listing gibt es zahlreiche Utilities: eine komfortable Dateiverwal- 
tung, einen Disk-Manager. Selbst CP/M-Grundlagen und die re¬ 
lative Dateiverwaltung werden erklärt. So findet wirklich |eder 
CPC-Besitzer in diesem Buch einen wertvollen Ratgeber. 

422 Seiten Best.-Nr. 412 DM49,-* 


Das CP/M-Trainingsbuch zum CPC 

Beherrschen Sie CP/M Dieses Buch hillt Ihnen dabei. Von den 
ersten Schritten bis zum perfekten Umgang. Dabei werden na¬ 
türlich die Versionen 2.2 und 3.0 für Schneider CPC 464,664 und 
6128 berücksichtigt Dieses CP/M-Trainingsbuch bietet ein we¬ 
nig mehr als andere: zum Beispiel Hiltsprogramme, mit denen 
Sie in der Lage sind, auch fremde Diskettenformate zu lesen 
oder Submit-Dateion zu erstollen. 

260 Seiten Best.-Nr 413 DM49,-* 


CPC Tips und Tricks Band 2 

Der zweite Band aus der Tips und tricks-Reihe ist lur alle CPC- 
Besitzer interessant, egal ob Sie nun einen 464, 664 oder 6128 
besitzen, Schreiben Sie eigene Befehlserweilerungen uder ei¬ 
nen Maskengenerator. Lernen Sie wichtige Systemroutinen ken¬ 
nen Erfahren Sie, wie man Programme beschleunigt und viele 
andere Dinge, die im täglichen Umgang mit dem Rechner fast 
unverzichtbar sind. Mit diesem Buch holl man noch mehr aus 
seinem CPC. 

250 Seiten Best.-Nr. 414 DM39,-* 

Das Maschinensprachebuch zum CPC 

Wer seinen CPC wirklich beherrschen will, der muß sich mit oern 
Thema Maschinensprache beschädigen Von den Grundlagen 
bis zur Programmierung des Z80-Prozessors Das Maschinen- 
sprachebuch zum CPC hiltt Ihnen von Antang an Mit einer ge¬ 
nauen Beschreibung aller Befehle und ausführlichen Beispielen, 
mit Hinweisen zur Benutzung der Systemroutinen und einem As- 
scmbler/Disassembler sowie einem Monitor zum Abtippen So 
macht der Einstieg Spaß 

330 Seiten Best.-Nr. 415 DM39,-* 


Das große Grafikbuch zum CPC 

Dieses Buch ist tiir alle, die bisher dachten spektakuläre Gra¬ 
fik aut dem CPC sei nicht möglich Zwei Top-Autoron beweisen 
das Gegenteil Mil CPC-Chari dem Diaorammgenerator. mit De- 
stroyed dem Arcade-Game, mit CPCs World dem 3-D- 
Ammationsprograrnm, mit \fektorgrafik, mit Sprites. . Ja Sie ha¬ 
ben richtig gelesen Wir reden von den Gralikmöglichkeiten Ih¬ 
res CPC - inklusive 6128 und Joyce 
589 Seiten Best.-Nr. 416 DM49,-* 


Programmwissen pur im Westentaschenformat 
Führer zum CPC Best-Nr 451 dm 19 . 80 * 
Führer zum CP/M Best.-Nr 452 dm 19 , 80 * 

Das große Buch der Public-Domain-Software 
Freie CP/M-Programme für Commo- 
dore 128, Schneider CPC und Joyce 

Public-Domain-Software setzt sich inzwischen auch in Europa 
durch Diese Programme tragen kein Urheberrecht und dürfen 
deshalb mit Hobbylreunden getauscht werden Doch gerade die 
großen Sammlungen tür das Betriebsystem CP/M enthalten ne¬ 
ben wahren .Juwelen“ auch viel unbrauchbares Material 
Der bekannte Fachjournalist Martin Kotulla hat es sich zur Auf¬ 
gabe gemacht, die Idee der Public-Domain-Sottware auch In 
Deutschland populär zu machen Aus den großen amerikani¬ 
schen Sammlungen hat ordio interessantesten Programme her¬ 
ausgesucht, übersetzt, an Commodore- und Schneider- 
Computer angepaßt und detailliert in diesem Buch dokumentiert 
Mit einem Wertcoupon aus dem Buch erhalten Sie die Program¬ 
me beim Autor zu einem besonders günstigen Preis 
229 Seiten Best.-Nr. 410 DM 34,80* 


Das BASIC-Buch zum 6128 

BASIC macht Spaß. Man muß es nur richtig erklärt bekommen 
Und genau das tut das große BASIC-Buch zum CPC 6128. In die¬ 
sem Buch steckt mehr als Einsteigerwissen Variablen. Zahlen¬ 
systeme, Bits und Bytes. Tokens. Stringbearbeilung. Sortierung. 
Lautschrift, selbstdefinierte Zeichen, Windows. Fehlerbehand¬ 
lung Kopierschutz. Grafiken. Soundprogrammierung, relative 
Dateien .... Das verstehen wir unter Vieltalt 
276 Seilen Best.-Nr. 461 DM39,-* 


464 Peeks & Pokes 

WerPEEKS und POKES zum CPC 464 kennen und anwenden 
will der findet hier umlassende Information! Sie reicht vom 
Adreßbereich des Prozessors über Betriebssystem und Interpre¬ 
ter bis hin zur Einführung in'die Maschinensprache Dazu Pro- 
grammierhilfen. Routinen sowie reichlich Material zu den The¬ 
men Graliklunklionen, Massenspeicherung und Peripherie, 
Tricks und Formeln in BASIC und RAM-Pag es! 

180 Seiten Best.-Nr: 463 DM29,-* 


CPC Hardwareerweiterungen 

Speziell tür den Hobbyelektronikor, der mehr aus seinem CPC 
machen möchtet Von nützlichen Tips zur Plalinenherslellung 
über Adreßdecodierung, Adapterkarten und Interlaces bis zur 
EPROM-Programmierboard und -Programnuernetzteil oder Mo- 
torsteuerung für Gleich und Schrittschaltrnotoren werden mach¬ 
bare Erweiteiungen ausführlich und praxisnah beschrieben 
445 Selten Best.-Nr: 464 DM49,-* 


464 Intern 

Wirklich alle Geheimnisse des CPC 464 
lüdet dieses Standardwerk: Neben dem 
kommentierten BASIC-ROM-Usting enlhält es Ka¬ 
pitel zu Speicheraufteilung, Prozessor. Besonder¬ 
heiten des Z80. Gate Array. Video-Controller und 
Video-Ram. Soundchip, Schnittstellen, 
stellen, Belriebssystem, Routinenuizung, Bücher 

Character-Generator u.v.m. Für den Software 

(ortgeschriltenen Basic-Program- Zeitschriften 

mlerer, lür den Assembler-Pro¬ 
grammierer ein absolutes Muß! 

548 Seiten 

Best.-Nr: 465 / 

DM69,-* 


Postfach 250 
3440 Eschwege 


• Unabhängig von der Anzahl der bestellten Bücher berechnen wir lür das Inland 
3.- DM bzw. tür das Ausland 5,- DM Porto und Verpackung. Bitte benutzen Sie 
unsere Bestellkarte 


Daten- und 
Medienverlag 

























[—Kleinanzeigen 


Biete an Software 


Kein Aprilscherz: 

ZWEITLAUFWERK 
5,25“ für CPC 664/6128 
EURO PC/TOWER PC, AMSTRAD 
PC 2086/2286 198,-! 

Joyce Laufwerke a. AJ 

ASSI DBASE II Benutzeroberfläche 

Pull Down Menü! 79,- 

EDI WS-kompatible Textverarbeitg. 

7k ideal f. CPC 49,- 

acw-soft, Breite Str. 16 

5300 BONN 1,02 28/636818 G 


■ Astrologie mit Computer 

International geschätzte Astrologen¬ 
programme, professionelle 
Deutungsprogramme, Lernprogramme 
für Anfänger, Handschriftanalyse, 
Bio-Rhythmus, Astro-I-Girig, 

Info gegen DM 2,- in Marken. 

Astron, K. W. Bonert 

Peter-Marqu.-Str.4a, 2000 Hamburg 60 G 


Sind Sie ein Managertyp??? 

Dann testen Sie das neue Spiel 
BÜRGERMEISTER. 

Sehr unterhaltsam und spannend. 
Hardware v. IBM PC + Komp. 51/4 Zoll, 
mit Anleitung, Preis 29,95 DM p.N. 

M. Bartels, Düpenautal 8g, 2000 HH-55 


Klassen-Noten-Punkteverwaltung 

Praxisnah, alle Klassen/Fächer, 
Schnittberechnung/Gewichtung, 

Listendruck und Bildschirmanz., 
Notenspiegel, einf. Menübedienung 
CPC, JOYCE, ausf. Info 1,30 Porto. 
Außerdem für JOYCE/PCW: 
komf. kompl. Vereinsverwaltung, 
einschl. Lastschrifteinzug usw. 

Claus Bernhold, Rommelstr. 31 

8783 Hammelburg G 


Joyce/6128: Dr. Draw/Graph; dBase II; 
Blackstar; Bounder; VB. 0228/460291 


PD-SOFTWARE für CPCs, Liste gegen 
80 Pf bei: Peter Breuker, 

Rektenstr.10,4930 Detmold 1 


Für PCW 8256: Multiplan DM 100, 
GCPM 3,ID DM 60, Cyrus II DM 50, 
Starglider DM 40 u.a. 

Tel. 053 31/6 21 93 


BTX - Textausgabe - Decoder 
Ab 23.1. gebührenfr. Gastzugang zu BTX: 
auch mit dem CPC 6128, RS232 u. 
Dataphon s21-23d oder Modem ohne 
BTX-Anschlußdose. Für Schneider-RS232 
65 DM und Vortex 67 DM. 

Tel. 040/584531 

oder PGiroKto Hmb 3398/96 203 


Wirtschaftliche Programme 
für die Arztpraxis auf 

dem Schneider CPC, Joyce, PC 
Fa. EFFEKTA, Am Wiggert 9c, 

4500 Osnabrück, 0541-442416 G 



EXPO-SOFT 

Immer aktuell und superschnell: 

Public Domain & Freesoftware 
IBM / Schneider PC + Kompatible. 

Disk ab DM 1,80, Gratisinfo. 

S. Schülke, Wuppertaler Str. 130 

5650 Solingen 1, Tel. 0212/5912 08 G 


■■■■■■■■■■■■■■■■■■■■ 

STEUERMAT: Lohn- und Einkommensteuer 88 
Ausdruck direkt auf die Antragsformulare, 
Analyse, Tabelle, alle Einkunftsarten, 
jährliche Aktualisierung (20,-DM) 89,- DM 
FORMULARPRINT 
DIN-A4 Formularbearbeitung 40,-DM 
FIBUMAT: Einnahme/Überschuß-Rechnung, 
Kassenbuch, Kontenlisten, Ergebnisabrechnung, 
USt-Voranmeldung, Funktionstasten frei 
belegbar, 142,-DM 

Für JOYCE: 3“ oder IBM-PC: 5,25“ +3,5“ 

Demo: 15,-DM, Info: 80 Pfg. RP 

FFSW, Farin, Elisabethstr.65 
4460 Nordhorn, Tel. 05921/13757 

■■■■■■■■■■■■■■■ G 


Dias ordnen mit Computer 

CPC 464/664/6128, JOYCE und PC 
bis zu 100.000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto bei 
Dipl.-Ing W. Grotkasten, 

Birnenweg 6, 7060 Schorndorf 

Tel. 07181/42846 G 


PD-Software für PC & Komp, jede 5,25-'0isk nur 
DM 3,-. Info: DHS ,7600 Offenburg, Wilhelmstr.17 


BONZOS SUPER-MEDDLER 
Das vielseitigste u. umfangreichste 
Kopierprogramm für Band-Disk- 
Kopien, auch für CASSY-geschützte 
Programme, headerlose, neueste 
Speedlocks, Turbolader. Für alle CPCs. 
3-Disk mit über 800 Lösungshinwei¬ 
sen (werden lfd. ergänzt) 
nur DM 55,- + VK. 

BONZO S BIG JOB 

Problemloses Superformat: 406K pro 
Disk. Mit Multi-File-Copy, Disk-Copy 
und Spitzen-Disk-Editor. 3-Disk nur 
DM 45,- + VK. Infos gg. 
Freiumschlag von 
SOFTWARE-VERTRIEB 
MARTINA HIPPCHEN, Postfach 100966, 
5000 Köln 1, T. 0221/21 5302,20-22 Uhr G 


Anwenderpr., 

alle CPCs und Programmentwicklung. 

Auf Wunsch neues Wirtschaftsspiel. 

A. Hust, Deichstr.60, 2876 Berne G 


Lohn- Einkommensteuer, Miel- Lastenzuschuß, 
Rentenber./Beamtenversorgung 
H-I-SOFTWARE, Niederfelderstr. 44 
8072 Manching,! 084 59/16 69 G 


ACHTUNG I! ERWACHSENE 
8 Disk 5 1/4 oder 3 1/2 mit delikaten 
Programmen nur DM 50,- VS/Bar. 

M. Karbach, Remscheider Str. 18 
5650 Solingen G 


EXPO-SOFT 

Immer aktuell und superschnell: 

Public Domain & Freesoftware 
IBM / Schneider PC + Kompatible. 
Gratisinfo Katalog, Disk ab DM 1,80. 

S. Schülke, Wuppertaler Str. 130 

5650 Solingen 1, Tel. 0212/5912 08 G 


Public Domain & Free-Software 
IBM/Schneider PC + Kompatible 
Disk, ab DM 1,80 - Gratiskatalog 
M. Karbach, Remscheider Str. 18 
5650 Solingen 1. Tel. 0212/43140 G 


ACHTUNG I! ERWACHSENE 
8 Disk 5 1/4 oder 3 1/2 mit delikaten 
Programmen für IBM PC/Kompatible. 
Nur DM 50,- VS/Bar. M. Karbach, 
Remscheider Str. 18, 5650 Solingen G 


PERPLEX: Finanzbuchhaltung professionell 
u. sicher zu bedienen. Alle Auswertungen. 
Kontenzahl beliebig, DATEV-Kontenplan, 182 DM 
BANKENSCHRECK : Neuberechnung von Dar¬ 
lehn nach neuestem BHG Urteil und 20 weitere 
Finanzprog., 98 DM. JOYCE und IBM-Komp. 
Ass-jur. Keilmann, Wilhelmstr. 71, 4400 Münster 


ENDLICH!! 

TIPPFEHLERSUCHPROGRAMM für 

Texte von Wordstar, Tasword u.a. 

Läuft auf CPC/Joyce unter CP/M+ / 2.2. 
Selbstlernendes Wörterbuch, 

3-Disk, Preis: 69,- DM. 

Maier Stefan, 

Friedrichstr. 34, 8000 München 40 


Akt. ComputerTech. + Nachtr. (100) 
JOYCE: Grafpad + GSX-Tr. (350). 

DRAW + fastGSX (100), CBasic (80), 
SMALLC (60), DDSreen-Source-Code (25) 
T. 0 22 04/5 63 28 


CPC & JOYCE PUBLIC DOMAIN 

Ein Info ist für 2 x 100 Pf. erhältlich. 

PDI, PF 1118, D-6464 Unsengericht G 


Verkaufe komfortables File-Copy für 
CPC6128, AMSDOS. Kopiert 80k 
pro Durchlauf. 20,- DM-Schein an 
S. Rompf. Postfach 1864, 6370 Oberursel. 
Schnelle Lieferung! G 


SIND SIE KREATIV? 

Entwerfen Sie Motive für Mode, Stickar¬ 
beiten, Strickvorlagen o.ä.? Testen Sie 
STICKEN, das Programm für das 
Design farbiger Rastergratiken. Info kosten 
los! DEMO-Disk: DM 25. 
CPC-HardwareKontig. Disk: DM 149. 
Schäfer. Amselweg 6,8056 Neufahrn 


Für Schneider PC 1512/1640! 

31 Matheprogramme für Kl. 5 ■ 10! 
Teilweise Grafik! Über 200 K! 

Nur 50 DM. Info kostenlos! 

Schäfer, PF 7222, 4800 Bielefeld 1 


Adreßverwaltung (CPC6128; nur Disk) 
für DM 20 bzw. —.80 für Info bei 
Felix Schudel, Chlaffentalstr. 98 
CH-8212 Neuhausen 2 


Lohn- und Einkommensteuer 1988 

Druckerausgabe + Datensicherung. 
Ausführliche Anleitung. Info 1,50 DM. 

3-Disk für CPC 79,- DM + VP, Versand 
gegen Vorkasse oder NN. 89er Aktuali 
sierung 20,- DM. S. Teurich, 

Mesternstr. 6,4952 Porta Westfalica 3 G 


SOFTWARE f. CPC 6128 

Multiplan 148,-, dBase I1148.- 
DataMat 78-, FiBu (M + T) 148,- 
DEVPAC Assembler 98-, HiSolt Pascal 78,— 
Kassenbuchführung 98,-, Fakturierung 
unter dBase II78,- 
Hot Space Computer Centrum 
8330 Eggenfelden, Schellenbruckstr. 6 
T. 08721/6573 G 


Verkaufe ORIG.-JOYCE-SOFTWARE: 
LocoScript2 für DM 100, DrGraf und an¬ 
dere mehr zum halben (!) Ladenpreis. 
Th. Binder, Tel. 07071/68317 
Raum Tübingen 


Alles für JOYCE/PCW!! 

Wir haben jede Menge Software und Zubehör 
für Ihren JOYCE: 

LocoScript 2 (m.dt.Handbuch!) 145,-1 

Dt. Handbuch zu Locoscript 2 69,- 
Locospell 2 148,— 

LocoFont (9 Zeichensätze!) 79,— 

Margin Maker (Papierführung) 29,90 
AMX Stop-Press (DTP-System) 159,— 
Leerdisketten 3“, 10er Pack 59,- 
Head over Heels (3-D-Action-Adv.) 39,90 
Cyrus II 3-D-Chess nur 47,90 
Matchday II (3-D-Fußballspiel) 49.90 
Classic Collection II (3 Spiele) 49,90 
Fiskus 88 (Prg.f.Steuererklärung) 135,— 
Joycestick-Set (mit Interface, Joystick 
und Flugsimulator ACE) nur 99,90 
Vokabeltrainer 57,90 
Schreiblehrgang (10-Finger-Übung) 89,- 
Lotto (Systemauswertung)nur 29,90 
NEU: CLASSIC GAMES 4 
Auf einer Disk: 3D Chess, Brigde, 
Dame 

und Backgammon!! nur 79,90!! 

Sind Sie nun neugierig geworden, was wir 
noch alle so haben? Unsere komplette Liste 
senden wir Ihnen gerne kostenlos zu: 

SUNSHINE-Sottware, B.Karrasch, Kapellen¬ 
weg 10, 5220 Waldbröl, Tel. 022 91/68 86G 


Biete an Hardware 


CPC464 Farbe+DDI, 

Progr. PYRADEV. PRO-DESIGN, CONTEXT; 
Lil. CPC-INT 3/85 bis 12/88, 
insg. über 50 Hefte, viele mit Software, 
über 30 Disk,, 20 Cass., Bücher, wegen 
Systemaufgabe zu verkaufen, 

Preis: 1165,-DM. 

Drucker NLQ401 200,-DM. 

Tel. 0 72 31/7 53 80, ab 17 Uhr 


Matrix-Drucker 
Star LC 10 Centr., 555,- 
Star LC 10c, 568,- 
Star LC 24-10 Centr., 879, 

Druckerkabel f. CPC 6128, 30,- 
Druckerkabel IBM-Centr., 17,- 
dt. Version 1, Jahr Garantie 
Porto frei + 3,- NN Gebühren 
Heinrich Bruns, Versandhandel, 

Thüler Sir. 36 

2908 Friesoythe, Tel.O 44 91/8 39 G 


Gebrauchtcomputer mit Garantie 
AMSTRAD - SCHNEIDER - PEACOCK 
CPC, JOYCE, PC, XT, AT 
HARDWARE, SOFTWARE, LITERATUR 
Ersatzteile & Reparaturdienst. 

Alles zu echten Superpreisen. 

Ständiger Ankauf! 

Höchstpreise für Ihren "ALTEN" 
bei Computer-Neukauf!!! 

Katalog anford. (2 DM in Marken). 
EDV-CLOOTS, 5132 Übach-Palenberg, 
Zeisstr. 7, Telefon 0 24 51/4 66 08 G 


BTX-Modul u. Farbmonitor für 
Schneider CPC 6128 günstig zu verkaufen, 
H, Dirmeier, 7980 Ravensburg 
Telefon 0751/94020 


Schneider PC 1512 CM Festp. 20MB 
XT 640KB + Softw. XMB, 2900 DM. 
Tel .062 52/56 23, nach 16.00 


3-KAWON-Zweitlaufwerk • CPC 6128 
298,-DM + VK. Tel. 05623/2572 


FD-1 (464) VB 220,-,T. 02242/2267 


100 PC 4’89 






Kleinanzeigen | 


Wegen Systemwechsel abzugeben: 

CPC 664/Farbm., 512KB Sp. Erw., 720KB 
Floppy Drucker, div. Prg., wie: 
WSi'MP/dB/Schach usw., div, Zeitschriften 
u. Bücher, VB 1000 DM, Tel. 0 68 34/55151 
ab 18.00 


CPC 464/DDI 1/Vortex 
SP256/Turbo Pascal (Grafik) 
MAXAM-Spiele VHB: 1200 DM 
Tel .063 71/12370 


CPC 6128 grün + SiliconDisk + NLQ 401 
+ Softw., Zubehör, DISKs für DM 1.100- 
Tel. 022 35/764 33 


PCW 8256 komplett, 

Centr,-Schnittst., Mousepack u. Softw., 
Bildschirmfilter, Schutzhüllen, 
div, Softw., Bücher, 2 Flugsim., 
Joystick u. Anschluß für 750,-DM, 
wegen Systemwechsel abzugeben. 

Tel. 052 51/3 93 58 0.91525, 
nach 17 Uhr 


Amstrad und Schneider Tower-EGA-EURO- 
und Portable PC. 31/2“+51/4“ Floppy und 
Festplatten, Telefax, BTX. Neue und ge¬ 
brauchte 464/6128/PC/Floppy/Drucker/Text- 
systeme 8512 + 9512. Star + Epson 
Drucker. Gebr. Monitor GT 65=120 DM; 
GT 640=380 DM. PC MM/Farbmonitore. 
Ankauf bei Systemwechsel. 
Reparaturservice. 

Manfred Kobusch, Bergenkamp 8 
4750 Unna,0 23 03/133 45 G 


A: 664 + Zub. + Software. T. 04853/5500 


CPC464 grün + Floppy DD1 + Drucker 
NLQ401 + Software + Bücher, 

VB 960,-.Tel. 089/7592235 


JOYCE 8512 zu verkaufen + Software: 
dBase, Wordstar, Dr. Graph, 
Fakturierung. T. 0941/77560. 


1 CPC6128,1 Grünmonitor, 1 Colormonitor, 
1 Floppy 51/4,1 Druckerkabel, 30 Dis¬ 
ketten 

3 Zoll, mit Progr.-Paket Compack, Neuwert 
356 DM. 4 Bücher und viele Zeitschriften. 
Preis: Verhandlung. 

Tel. 05642/6631 


Midi-Interface, inkl. Software, für CPC. 
Preis VB.. T. 02366/41014 


Lichtgriffel nur DM 49,- 

Versand gegen Scheck/Nachnahme, Info gra¬ 
tis! Computer bitte angeben! Anschluß an ie 
den (!) Computer möglich, Standardversion 
für Schneider lieferbar. Firma Schißlbauer, 
Postfach 1171R, 8458 Sulzbach, 

Tel. 09661/6592 o. 0941/999915, bis 21.00 G 


MP-2, DM 70,-. Tel. 09352/7233 


3-2.LW-CPCS in Geh. m. Kabel u. NT 
o. Geh. 150 DM. Silikon-Disk 170 DM, 
T.-Pascal 90 DM, Platinen-Layout D/C 
30/20 DM, Sekretariat 30 DM, Anwen¬ 
dungen 

je 15 DM, Tasword D+C 40 DM, 
rom-y-m f. PC-Datenbanksystem, neu! 
140 DM, CPC Hefte |e 2 DM. 

Tel. 02982/1263 


Verk. CPC6128 + Farbmon. + Zubehör 
für 650 DM. Tel. 0911/351868 


..Suche Joyce PCW 8256 

JOYCE - PCW Spezial Versand Tel. 093 74/10 29 (ab 20 Uhr) 


Farbbänder und Toner 
zu Traumpreisenl 

LISTE ANFORDERN! 
Sonderangebot 4/89 

Joyce-PCW schwarz 12,60 
farbig o. Multistrike 16,90 
DMP 2000 schwarz 12,60 


MAXELL 3“ SUPERPREIS 
10er Pack DM 57,90 


FLIPPER in 3 Sekunden von 
LocoScript 2.16 zu CP/M o. 
Nutzung v. 2 CP/M-Programmen 


PCW Kempston Maus f. DR Draw, 
DR Draw, DTP u.a. Programme 
m. Benutzeroberfläche JEEVES 


CPC SPIELE ZUM SONDERPREIS! 


PCW + PC1512 Bildschirmfilter 
COMAL-80 MODUL FÜR CPC 


LocoScript 2.16 m. d. Handbuch 
Loco Mail/Font/Spell/File 


COMAC KASSE/LITBOX/LV/CHART 
Reinigungsdisketten 3“, 3,5“ 


Druckerreinigungs-Set PCW 


INFOLISTE KOSTENLOS! 


An- Verkauf * JOYCE - PCW 

von Hard und Software 


Alle Preise + Versandkosten 


B. Welzel & Wunsch GbR. 

Swebenhöhe 47, 2000 Hamburg 72 
T. 040/6436447 BTX 0406436447 

... Q 


Verkaufe wegen Systemwechsel: 
CPC464 grün, DD1. Disks + Tapes, 
Musikmachine. Hefte. VB: 860,- DM 
R. Pini, Schweiz. Tel. 061/425734 


JOYCE Plus zu verkaufen! Te 0 23 65/4 27 25 


Suche Software 


Wer hat für 664 prof Textverarbeitung 
angepaßt an Brother 1209 sowie 
Anwenderprogramme für Handwerk? 
Tel. 0511/6712 69, Blitzschutz 


SPS Simulation. CPC 6128/PC 1500 
Siemens Step5 oder andere SPS. 
Tel. 0209/375054 


Suche MACRO-80 und C-Compiler für 
PCW. Tel 030/4535265 


Prog. f. techn. Zeichnen ges., 
ab 18 Uhr. T. 097 76/94 45, Jürgen 


Suche Hardware 


DDI-1 gesucht, mögl. mit Zubehör u. besp. 
Disks. T. 07300/5365 


VORTEX F1-X m. VDOS 2.00 ges. 
ab 18.00 Uhr. 1 0 97 76/94 45, Jürgen 


Verschiedenes 


JOYCE-COMPUTERCLUB 
Ausführl. Info gegen Rückporto von 
J. Berghof, Roseggerstr. 5 
5600 Wuppertal 2 


Erstelle Backups v. geschützt. 
Software und konvertiere von 3" 
nach 5 1/4" und umgekehrt, 
auch MS-DOS!! 

ORIGINAL + DISK + 3 DM an 
Karsten Willand, An der Stupe 2A 
3405 Rosdorf 


83 versch. CPC-Magazine plus 5 
DATA-BECKER-BÜCHER. DM 100,. 
Tel. 02151/406544. ab 17 Uhr 


HAFTETIKETTEN 50 Formate, Info: 

M. Böhne, Försterw.4.3354 Dassel G 


JAMASYS-Modul rettet PC-Umsteigern 
Daten u. eigene Programme von CPC 
d. Transfer ü. parallele Schnittst. NEU! 

NN DM 169,-. Info./Bestellung bei 

CONCEPTION GmbH 

Hubertusweg 14 

2000 Hamburg 61 G 


Disketten-, Datenkonvertierung 
JOYCE, CPC u. a. auf MS-DOS 
oder ATARI kopieren, Umwandlung von 
LOCOSRIPT und WordStar-Texten 
in 1stWord+ und BECKERtext ST 
Texte inkl. Textattribute. Info bei: 

Bernd Drost, Schulstr. 67 

6382 Friedrichsdorf, T. 0 6175/6 04 G 


PC 512/1640 User-Club sucht noch 
Mitglieder. Mtl Zeitschrift, Software etc. 
Info von R. Knorre, Pf. 200102 
5600 Wuppertal 


Joyce/PCW Softw. (u. a. dBase, Mailing 
Syst., hervorr. PD), Schaltpläne, Fachlitera¬ 
tur, PC Internat, ab 1/86, Databoxes, 
Sonderhefte u. v. m. Info gratis! 

H. Langbein, Nienbergen 28,3134 Bergen 


Tausch 


Tausche 1 A! 3.5-Floppy (CUMANA) 

+ 40 Disks (Neupreis: 420,-) gegen 
guterhaltenen Drucker DMP2Q00. 

Frank Klein, 5552 Horath. T. 06504/364 


Suche Tauschpartner CPC464 Cass. 
Max-Dieter Guse, Wiesenstr. 8 
4500 Osnabrück. Beantworte alles. 


Stellenmarkt 


Auftragsprogrammierung 
in BASIC, Pascal, Multiplan, dBase, MC; 
auf CPCs & PC1640; viel Erfahrung bei 
allen Problemen. Infos & Beispiele: 

T. 061 74/5200 


Club 


JOYCE (PCW) USER GROUP in Styria hat 7 Public 
Domain Disks und 3 Jahre voll und noch mmer 
neue Pläne. Also informiert Euch und schreibt 
an JOYCE USER GROUP in Styria c/o 
Herbert MOSCHITZ, Postfach 96, A-8041 GR.AZ 


Der CPC-Club BHG ist wieder voll oa Intos. Tips 
Vergünstigungen, Vorteile -, das alles bieten wir 
und mehr" Info gibts gegen 80 Pf Rückporto bei: 
BHG, Postfach 30,8115 Ohistadt, Wir antwor¬ 
ten 100% und sehr schnell! 


Computer Club QUALMENDE CPU 

sucht Kontakt zu anderen Computer Usern 
(MS-DOS oder CPC mit Floppy). Info gegen 
Rückporto bei: Stefan Baur, 

Hans Sachs-Str. 32,7730 VS-Schwenningen 


Kontaktadresse: Werner Hierse 
Wermeltswiesenweg 180 
7315 Weilheim/T.. Tel .070 23/88 59 


SICO-USER-CLUB e.V., Postfach 24, 
A-6382 Kirchdorf, Tel.05352/4692 


Christian Röhr, Hirzsleinstr. 49, 
3501 Schauenburg 1 


Das ist 
Ihre 

Chance.. 

Schon 
bringt 
folg un 

te zu knüpfen. 

Nutzen Sie unser Angebot 
und profitieren Sie von der 
Tatsache, daß unsere Zeit¬ 
schrift 

»PC INTERNATIONAL« 

jeden Monat von mehreren 
zig-tausend Computer-In¬ 
teressierten gelesen wird. 
Möchten Sie etwas verkau¬ 
fen, tauschen, oder su¬ 
chen Sie das »Tüpfelchen 
auf dem i« - dann sollten 
Sie die eigens hierfür be¬ 
stimmte Bestellkarte im 
Heft ausfüllen und an un¬ 
seren Verlag absenden. 
Ihre Annonce erscheint 
dann in der nächsten Aus¬ 
gabe. 

Wir möchten ausdrücklich 
darauf hinweisen, daß wir 
keine Anzeigen veröffentli- 
hen, aus denen ersichtlich 
ist, daß es sich hierbei um 
Veräußerungen von Raub¬ 
kopien handelt. 

Des weiteren machen wir 
darauf aufmerksam, daß 
indizierte Computerspiele 
nicht in Form von Anzei- 
en beworben werden 
ürfen. 

Die Redaktion 


eine Kleinanzeige 
oftmals großen Er- 
J hilft, neue Kontak- 
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r~Vorschau~ 


Textverarbeitung , die 
meistverbreitete An 
wenüung auf einem 
Computer. Was Text¬ 
verarbeitungspro¬ 
gramme können soll¬ 
ten und was sie wirk¬ 
lich bringen, erfahren 
Sie in der nächsten 
Ausgabe. Zusätzlich 
bieten wir Ihnen eine 
Übersicht der verfüg¬ 
baren Programme. 




»PC International» 
erhalten Sie ab 
26. April bei Ihrem 
Zeitschriftenhändler 


CPC-Programme: 


Schildchen-Drucker 

- Kreatives Gestalten von Schildern ist an¬ 
gesagt. Kreieren Sie zum Beispiel ein 
originelles Tür- oder Namensschild. 
Ihre Nachbarn werden staunen. 

Australien 

Das Super-Spiel für Strategen. Fangen Sie 
als armer Farmer an. und werden Sie Groß¬ 
grundbesitzer. Spannend bis zur letzten 
Minute. 


Tips & Tricks: 


Legen Sie das Direktory in Strings ab. In¬ 
teressante Möglichkeiten tun sich auf. 

Eine verbesserte Inpul-Routine zeigt, wie 
Fehler in den Eingaben vermieden werden. 

Verpassen Sie nicht die IKB-Programme, 
deren Umfang erweitert wurde. Viele gute 
und überraschende Programm erwarten 
Sie. 

Und weitere Tips und Tricks für Ihren 
Rechner. 



Pin Spiel das fasziniert. Begeben Sie sich mit 
dem CPC nach Australien um Reichtum zu 
ernten. 


Ein Diskettenmanager unter BASIC. 


PC: 


Ein Super-Programm unter BASIC2 bieten 
wir Ihnen in der nächsten Ausgabe, wo es 
heißt: Spekulieren auf Teufel komm raus. 
Heiße Stunden in der Börse. Sie dürfen ge¬ 
spannt sein. 


Bericht: 


Welche Textverarbeitung Ihren Ansprü 
chen genügt, lesen Sie in der nächsten Aus¬ 
gabe. 


Hardware: 


Wir haben für Sie das neue Doppellaul werk 
der Firma G + L getestet. Was es kostet und 
leistet, erfahren Sie in der nächsten Aus¬ 
gabe. 


PCW: 


Manipulation 

Wir zeigen Ihnen, wie Sic Ihre angelegten 
Dateien auf der Diskette leicht ändern 
können. 



Die Sensation. Dine Börsensimulation für die 
PCs. Spekulieren Sie wie die Bonzen an der Wall 
Street. 


Informationen über die Geräte-Konfigura- 
lion bringt Ihnen unser Testprogramm un¬ 
ter Turbo Pascal. 


Die Inserenten 


CHS Böckmann.59 

CSV Riegen.59 

DMV.2,29,33,41,57,65, 

.73,78,79,99,103,104 

DOBBERTIN.51 

G + L electronic.47 

K-A-S Lcwrick.51 

Kosmalla & Partner.59 

KOTULLA.27 

Krebs electronic.47 

PR 8 -Soft.67 

ProSoft. 49 

Schuster.54,55 

Sinkwitz..51 

Strauß Elektronik.47 

Weber. 75 

Weeske.13 

WERDER.58 

Westfalenhalle.21 

WIEDMANN.75 

van der Zalni.58 
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Das Software-Experiment 

für CPC 464/664/6128 

Autor: Matthias Uphoff 

Die erfolgreiche Serie aus PC International jetzt in Neuauflage: 10 abenteuerliche Ausflüge 
in die Welt der Computergrafik, Simulation und Künstlichen Intelligenz mit insgesamt 
17 Programmen auf Diskette/Kassette und einem umfangreichen 180-seitigen Handbuch! 


Unter anderem bietet das Software- 
Experiment: 

Komplexe Grafik: Ein komfortabler Fraktal-Generator 
für den CPC 

Das Spiel des Lebens: Nach einem einfachen Prin¬ 
zip wachsen auf dem Bildschirm farbige Kristallmuster: 
Sehen und staunen! 

Das Ökologie-Experiment: Gestalten und erfor¬ 
schen Sie die Gesetzmäßigkeiten eines künstlichen klei¬ 
nen Lebensraumes, der in animierter Farbgrafik darge¬ 
stellt wird. 

Der Computer als Stratege: Ein ausgeklügeltes 
System macht den CPC zu einem starken Gegner im 
japanischen Gobang-Spiel. Verbessern Sie die Spiel¬ 
stärke durch Abändern der Zugbewertung! 

Mit roher Rechengewalt: Mit einem “Brute-Force“- 
Algorithmus spielt Ihr Rechner in einem afrikanischen 
Bohnenspiel alle menschlichen Gegner an die Wand — 
oder können Sie ihn schlagen? 

Der Computer lernt: Bringen Sie Ihrem CPC 
“spielend“ Minischach bei. Mit jeder Partie wird das 
Programm ein bißchen besser... 

Wordmaster: eines der intelligentesten Programme 
des Software-Experiments: Raten Sie ein Wort, das sich 
Ihr PC ausgedacht hat — und das ist eigentlich nichts 
besonderes. Aber dann rät der Rechner ein Wort, das Sie 
sich ausgedacht haben! Wer braucht weniger Versuche? 
Sie werden sich wundern... 

Wortketten: Mit einer raffinierten Methode löst der 
CPC Wortketten-Rätsel — oder er erfindet neue Rätsel, 
ganz wie Sie wollen! 

Entwicklungshilfe per Computer: Verbessern Sie 
in einer aufwendigen Simulation als Entwicklungshelfer 
die Lebensbedingungen eines Volkes in der Savanne 
Afrikas. Seuchen und Hungersnöte drohen, und Ihre 
Mittel sind begrenzt... 

Pascal läßt grüßen: Ein erstaunlich einfaches Pro¬ 
gramm enthüllt verborgene Strukturen im Pascal’schen 
Dreieck und stellt Sie grafisch dar. 



GOBANG-Spiel 



ÖKOLOGIE-Experiment 


Kassette 


59,- DM (unverbindliche Preisemptehlung) 

Wenn Sie über den DMV-Bostellsorvice bestellen, gill Zeigendes 
Inland: Ausland: 

Einzelpreis 59,- DM Einzelpreis s9. DM 

zzgl. Versandkosten 3,- DM zzgl Versandkosten 5.- DM 


Best.-Nr. 212 


Endpreis 62,- DM Endpreis 64,- DM 


3“ -Diskette 

Best.-Nr. 213 


69.- DM (unverbindliche Preisemptehlung) 


Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes 

Inland: 

Ausland: 


Einzelpreis 69.- DM 

Einzelpreis 

69.- DM 

zzgl. Versandkosten 3.- DM 

zzgl Versandkosten 

5.- DM 

Endpreis 72,- DM 

Endpreis 

74,- DM 


Doch das Software-Experiment ist weit mehr als ein außerordentlich vielseitiges Programmpa¬ 
ket: Das Handbuch vermittelt auf anschauliche und unterhaltsame Weise, welche Datenstruktu¬ 
ren und Algorithmen dem CPC phantastische Grafiken und verblüffende Intelligenzleistungen ent¬ 
locken. Der ideale Lehrgang für den angehenden Top-Programmierer — hervorragend geeignet 
für den Informatik-Unterricht an Schulen! 

— Bitte benutzen Sie die Bestellkarte — 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 





































Jetzt wird es aber 
höchste Eisenbahn 



Superpack 
Nr. 1-5 

5 Stück = 55, -DM 


Fast alles wird heute teurer, da ist es 
doch erfreulich, wenn wir Ihnen etwas 
zeigen, was bei gleichbleibender Quali¬ 
tät preiswerter wird: Unsere CPC-Son- 
derhefte 1-5. Sie bieten Ihnen alles, 
was den Prozessor Ihres CPC höher tak¬ 
ten und Ihr Herz höher schlagen läßt. 
Nicht nur Informationen rund um den 
CPC, nein, auch Super- Software zum 
Abtippen, Super-Hardware zum Nach¬ 
bauen. 

*** insgesamt über 1 MegaByte an Pro¬ 
grammen *** bekommen Sie für den sa¬ 
genhaft günstigen Preis von DM 35, -. 
Hier ein kleiner Überblick über diese 
Fundgrube an Computerspaß: 

- Anwendungen: 

Relative Datelverwaltung, BASIC-Erwei- 
terungen, Datenfernübertragung 
Floppyprogrammlerung, Diskettenmoni¬ 
tor, Soundprogramm. 

- Hardware: 

Anschluß von Zweitfloppies, Bauanlei¬ 
tungen rund um den CPC. 

- Spiele: 

Abenteuer, Actlon, Knobeln, Rollenspie¬ 
le. Tips und Hinweise, falls Sie mal 
nicht weiterkommen. 

- Tips und Tricks: 

Alles über CPC 464/ 664/ 6128, CP/M. 
Assembler. 

Und das ist nur ein kleiner Querschnitl 
der großen Programmvielfalt der CPC- 
Sonderhefte 1 - 5. 


A/so, wenn Sie den Zug nicht verpassen 
wollen - hauten Sie sich geballte CPC- 
Intormation zum Sonderpreis. 






...daß Sie endlich 
unsere CPC-Sonder- 
hefte kennenlernen! 



TUftoo-Pawoi«: 


Anwendungen t 

«■bHUnknlkuwOon 
B6nMww\nbi«r 
CAD ;• 

UlilltfOtt: M 

m 

B'tK (U.lllM ■ 


Kraftfutter für Ihren 
CPC - jetzt zum 
günstigen Preis. 



rllWNiy 


Iw U&Mfci 


F4lr Vo ric x^A nwcnUor 

D08-Er\VpK.»HiH9 

DlnklfHJl 


Grundlagen; { 

äoundprtwuinmlenjng 
lnu?ht pimiocwf* 


Orary Stomp« 
Tennis Mflnnpor 


Übersicht: 


SplelotlpB: 




7-jii 

- rylaUva •jm-J 
uu>jl/-jf.yal(ui 


ilt Disketten 


Lernen: 

/■y.'.M-A'j, 


S piele: 


- Jy.ly t A jirJJ. 
-- luiy/yyya/iia 


Anwendung: 


- Ui-jirL 


-. 

6/88 


Sonderheft 6/88 

Grundlagen, viele Tips, nützliche Anwendungen und 
(olle Spielprogramme - ein Muß für jeden CPC-AnWen¬ 
der. Dieses Sonderheft behandelt das gesamte Spek¬ 
trum möglicher CPC-Einsatzgebiete und bietet Informa¬ 
tionen für jedermann. U.a. komplette Lagerbuchfüh¬ 
rung, relative und sequentielle Datei, neues Disketten- 
DOS, viele Lernprogramme, CP/NI und Turbo Pascal 
und, und, und... 

Best.-Nr.: 312 14,- DM 


Sonderheft 7/88 

Wieder eine Fundgrube für CPC-Besitzer: 

Music-Star ist ein tolles Soundprogramm, machen Sie 
Ihren CPC zum Synthesizer. Spiele wie COSMIC, AUXI- 
LIA, SUPERTRON 3D werden Sie in Atem halten. Tips 
und Tricks rund um die CPCs in Assembler, CP/M und 
BASIC. Ein Sprachsynthesizer zum Nachbau, Grundla¬ 
gen über die Floppy- Programmierung - alles das fin¬ 
den Sie im Sonderheft 7. 

Best.-Nr.: 313 14,- DM 



Grundlagen: 

Alles über Floppy- 
Programmlerung 

Spiele: 

3D-lton 

Auxllla - Im Reich der Magie 

Anwendungen: 

Musikprogramm de Luxe 
Chemie - gor«: einfach 

CP/M: i Uj 

Viele Tips und I JJJ 
Ergänzungen WW 

Tips & Tücke :/ 

Stark: 

Besic-Programm» 
verkürzen 


Hardware: 

Sprachsynthesizer 
de Luxe 


* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung 

Bitte benutzen Sie die Bestellkarte. 

DMV-verlag • Postfach 250 - 3440 Eschwege 






















